m lei hebdomadaire des programmes informatiques 



INFORMATIQUE ET EDUCATION 

LA PAGE PEDAGOGIQUE 

Comma nous 1'ayions annonce 
dans notre dernier numero. la 
rubrique informatique et educa- 
tion vient s'mtegrer pour la pre- 
miere fois, cette semaine. dans 
HEBDOGICIEL. Ouverle aux en- 
seignants et a toule personne 
concernee par I'utilisation de 

MATERIEL EN PRET : 
DE BONNES NOUVELLES 



(article en page centrale) 
I'ordinateur dans I'enseigne- 
ment, cette premiere page est 
deja bien remplie ! If semble utile 
de preciser que tous les articles 
sont ecrits par des enseignants 
qui sont. bien entendu. remune- 
res sous forme de droits d'au- 
teur. 



Destinee a favoriser la realisa- 
tion d'experimentations infor- 
matiques dans le cadre scolaire 
et pour les plus defavorises, 
i'operation PO.E. (Pret d'Or- 
dinateurs aux Enseignants) 
semble prendre une direction 
prometteuse. 

Apres COMMODORE, ORIC. el 
outre le materiel fourni par HEB- 
DOGICIEL (THOMSON, SIN- 
CLAIR, etc...),VIR-NATHAN pro- 
pose un pret de MO 5. ce qui 
constitue une performance, car, 
comme chacun sait, le MO 5 



(dernier ne de THOMSON) est 
une des nouveautes de I'annee. 
Enseignants, prenez votre trai- 
tement de text e le plus puissant, 
ou, a defaut voire plus belle 
plume, et adressez-nous votre 
demande de pret ! 
Cette demande doit etre pre- 
sentee sous la forme d'un dos- 
sier recapituJatif precisant les 
objectifs generaux de I'experi- 
mentation que vous desirez rea- 
liser ainsi que le materiel (type, 
quantite, peripheriques. etc..) 
necessaire. 



LA PAGE EDUCATION : EN RESUME 



• UNE RUBRIQUE CREEE 
PAR ET POUR DES ENSEI- 
GNANTS 

• REMUNERATION DES AR- 
TICLES (DROITS D'AUTEUR) 



• PRET DE MATERIEL AUX 
ENSEIGNANTS DESIRANT 
REALISER UNE EXPERI- 
MENTATION {OPERATION 
P.O.E.). 



LES CONCOURS PERMANENTS : 

10 000 francs de prix au meilleur programme CHAQUE MOIS. 
1 voyage en Californie pour le meilleur logiciel CHAQUE TRI- 
MESTRE (Reglement en page interieure) 



CONCOURS HEBDOGICIEL 
GEORGES LECLERE ANTENNE 2 



Depuis la semaine dermere et 
jusqu'au 2 Mai. un concours, in- 
dependanl des deux concours 
permanents est organise avec 
Georges LECLERE dAntenne 2. 
L'objectif de ce concours est sim- 
ple : a parlir de I'idee de base de 
Georges LECLERE. chacun d'en- 
Ire vous, quel que s oil son ordina- 
leur, doit creer un jeu le plus pro- 
che possible de I'ideeorigmale et 
le rendre suffisamment perfor- 
mant et presentable, pour qu'il 
puisse etre vendu en France et 
dans les pays Francophones. 

Chaque ordinateur a sa chance 
el il y aura un gagnant parordina- 
teur. Les prix ? Comme d'habitu- 
de chacun des programmes rete- 
nus sera recompense par des 
materiels, il y aura meme un su- 
per gagnant. Mais surtout. les 
programmes retenus seront edite 
par SHIFT EDITIONS sous forme 
de K7 ou de disquette et les au- 
teurs. par contrat. toucheront les 
royalties correspondent aux 
ventes de leur logiciel 



LE JURY 

Preside par Georges LECLERE. 
des specialistes de DOM, de la 
FNAC. d'HACHETTE. dULEL, de 
la REGLE A CALCUL, de SIDEG 
de SIVEA et de VIFI NATHAN se 
reuniront pour admirer vos osu- 
vres. Annonce des resultats le 25 
mai, a vos claviers ! 



LES PRIX 

Le jury choisira le meilleur logi- 
ciel pour chaque modele d'ordi- 
nateur et. parmi ces meilleurs !o- 
giciels. le gagnant toute catego- 
rie qui en plus de son contrat 
d'edition et de ses prix. aura le 
plaisir de passer en direct a la te- 
levision : la gloire ! 
RECOMPENSES POUR LE GA- 
GNANT TOUTE CATEGORIE : 

- Un contrat d'edition de son lo- 
giciel 

- Un APPLE lie 

- Un CANON X 07 

- Un COMMODORE 64 

- Un ORIC ATMOS 

- Un Agenda electroniqueCASlO 
PF 3000 

- Un TEXAS Tl 99/4A 

- Une imprimante EPSON 

- Un abonnement a vie a HEB- 
DOGICIEL 

- Une disquette HEBDOGICIEL 
APPLE N° 1 

- 5 logiciels VIFI NATHAN 

- 5 logiciels ROMOX 

- 5 modules de jeux TEXAS 

- 10 logiciels de jeux pour COM- 
MODORE 64 

- SHARP PC 1245 

- SHARP PC 1500 

- 1 cassette HEBDOGICIEL 
le Chateau du Diable 
pour ATMOS 

- 1 cassette HEBDOGICIEL 
centrale Nucleaire 
pour ATMOS 

- 1 cassette HEDOGICIEL 
ORIC/ATMOS N° 1 



- 1 cassette HEBDOGICIEL 
TEXAS N° 1 

- 1 cassette HEBDOGICIEL 
TEXAS N° 2 

- 1 cassette HEBDOGICIEL 
commodore 64 N° 1 

- 1 cassette HEBDOGICIEL 
commodore VIC 20 N' 1 

- 1 cassette HEBDOGICIEL 
T07 N n 1 

- 1 cassette HEBDOGICIEL 
Canon X-07 N p 1 

RECOMPENSE POUR LES GA- 
GNANTS DANS CHAQUE CATE- 
GORIE D'ORDINATEUR : 

- Un contrat d'Edition de son lo- 
giciel 

- Un agenda electronique CASIO 
PF 3000 

- 20 K7 vierges 

- Un abonnemenl d'un an a HEB- 
DOGICIEL 

et bien d'autres prix qui viendronl 
s'ajouler au cours des semames 
a venir Cloture des envois de 
programmes le 2 mai 
Le reglement est en page inte- 
rieure. Plus que quatre semames 
avant la gloire ' 



EDITO 



Le concours Georges LECLERE 
louche a sa tin. il ne vous reste 
que dix jours pour nous envoyer 
le resultat de vos travaux el pour 
marcher vers la gloire et (peut- 
etre} la fortune ' Le POKER AL- 
PHABET deviendra-t-il aussi ce- 
lebre que "des chiffres et des 
lettres" ou que "le jeu du Dico" ? 
Cela depend de vous. le 2 Mai. 
les jeux seronl fails ! 
La semaine prochatne, encore 
une grande nouveaute : le Hit 
parade des logiciels, une selec- 
tion des meilleurs logiciels fran- 
suite page 13 



DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II ET HE 
ATARI . CANON X-07 . CASIO FX 702-P . COMMODORE 64 ET 
VIC 20 . HEWLETT PACKARD HP 41 . MULTITECH MP-F II . ORIC 1 . 
SHARP MZ, PC 1211, PC 1500 . SINCLAIR ZX 81 ET SPECTRUM. 
TANDY TRS 80 . TEXAS TI-99/4A . THOMSON T07 

HIPPOREBUS trouvez I'expression qui se cache dans la B D. de I'hippocampe Decompose en trois syllabes dans les trois premieres cases, le "tout" a evidemmeni un rapport avec I'informatique 
(solution en page interieure). 




( N°28 



Allomagne 3,50 DM - Belglque 55 Frs - Canada 2,50 $ - Luxembourg 57 Fra - Suisse 3 Frs 



LABYRINTH E INVISIBLE T1 . 99/4 A 



Un labyhnthe est toujours un casse-tete. Celu 
n'arrange rien ! A vous de voir ! 



10 


••-! I 


CLEAR 




:»ll 


SCREEN (i 1) 




;0( f 


= 1 TO 7. 




I ..:■ 


»,V,U 


so 


iosup 


3120 


60 


«XT 




70 


:all 


EY'O.B.C) 


tJO 


[F 6- 


77 THEN HO 


VO 


[F B- 


78 THEN 7-90 


IOC 


GOTC 


70 


1IC 


REIT 




I2i 


REM 


PEGLES 


I3C 


REM 




110 


OflTC 


•'LABYRINTHE", 5, 12 


ISC 


DATA 


"VOULEZ-VOUS VOIR LES".I0.6 


161 


DATA 


-REGLES (O/N) ", 12. 1 1 


170 


DATfi 


"LABYRINTHE", 1, 12 


tuo 


DATA 


"VOUS ALLEZ DURANT QUELOUES" . 


190 


DATfi 


"SECONDES . VOIR APPARAITRE " 






"UN LABYRINTHE , LINE FQIS ".3 


210 


DATA 


"CELUI C! EFFACE . VOUS", 6. 4 


220 


DATA 


"DEVREZ ALLER A L'AUTRE BOUT" 


23C 


DATA 


"DE L'ECRAN EN UN TEMP5'*,B,4 


L'40 


DATA 


"LIMITE .VOUS SEREZ AVERT I ", 9 


230 


DATA 


"DE LA PRESENCE D'UN MUR",!©, 


260 




"DEVANT VDUS PAR UN SIGNAL", 1 


Z70 


DATA 


"SONORE", 12.4 




DATA 


"VOUS VOUS DEPLACEREZ", 14,4 


290 




"A L'AIDE DES TOUCHES J ",13, 


JOO 


DATA 




310 


DATA 


"APPUYEZ SUR UNE T0UCHE".23.4 


320 


CALL 


CLEAR 


330 


FOR A-l TO 13 


-14« 


READ 


B*.V.M 


3SO 


60SUB 3120 


SAO 




A 


370 


CALL 


KEY<0,B,C> 


-WO 


IF C- 


THEN 370 


3"?0 


REM 






REM 


PATTERN 


410 


REM 




420 


CALL 


CHOR (96, "FFFFFFFFFFFFFFFF" ) 


440 


CALL 


CHAR (I 04, "FF91B1B1B1B181FF") 




CALL 


CHAR I 1 1 2, "FFFFFFFFFFFFFFFF" ) 


460 


CALL 


CHAR (120, "OlOIOlOlOtOlOlOl") 


470 


CALL 


CHAR! 121 , "aOBOaoBOBOBOBOB"] 


4 BO 


CAL! 


CHAR (12S, "003CA67ESA663C" ) 


490 


CALL 


CHAR(129, "004E2B7B1E3452"! 



300 CALL CHARI133,"-) 

S!0 CALL CHAR(I36."O0B0SOB0B0B0a") 

320 CALL CHAR(137. "OOCOCOCOCOCOC") 

S30 CALL CHAR(13B, "OOEOEOEOEOEOE" J 

340 CALL CHAR(139,"O0F0F0F0F0FOF"J 

330 CALL CHAR(140, "OOFBFBFBFBFBFB" 1 

560 CALL CHAR(141,"O0FCFCFCFCFCFC"] 

570 CALL CHARU42. "OOFEFEFEFEFEFE" 1 

3BO CALL CHAR(143,"00FFFFFFFFFFFF"! 



•ci est invisible ce qui 
Gerald BOUQUET 



600 


REM 










/7'\<f 


610 


REM 










((•)) 




CALL 


COLOR 










CALL 


COLOR 


10.7 






AjV^^ 


640 


COLL 


COLOR 


11.3 








630 


CALL 


COLOR 


12,2 








660 


CALL 


COLOR 


13.7 








670 


CALL 


COLOR 


14,7 








680 


REM 












690 


REM 




R1ABLES 






700 


REM 












710 


ENGIN-3 










720 














730 


REM 












740 


REM 


DECORS 








REM 












760 


CALL 


CLEAR 










770 


6*= "LABYRINTHE" 










CALL 


HCHAR 


2, 12 




0! 




7B0 














790 


W=12 














GOSUB 3120 










810 


B»»" 












B20 














830 














840 


GOSUB 3120 










B30 


CALL 


HCHAR 


3,11 


126 


ENGIN) 




860 


CALL 


HCMAR 


*. 1» 


04, 


52) 




870 


CALL 


HCHAR 


21, 1 




32) 






CALL 


HCHAR 


3, 1, 


12, 


512) 




890 


CALL 


VCHAR 


5,29 


104 


16) 






FOR A=l TO 


7 








910 


CALL 




3*A, 


0,ASC<SEG* 


"ARRIVEE". 




NEXT 












922 


B*= "TEMPS" 










924 


V-22 












926 


U-13 












92B 


GOSUB 3120 










930 


CALL 


HCHAR 


24,3 


170 






940 


CALL 


HCHAR 


24,4 




T/ai 




9SO 


CALL 


HCHAR 


24, T/ 


n*4 


121) 




960 


B*»"ATTEND£Z ! " 








970 


V»3 












980 

990 


W-2I 

GOSUE 
REM 


3120 










101C 


REM 


LABYRIH 








REM 












103C 


RANDOMIZE 










104C 




A-5 Tt 


21 STEP 


a 




10SC 


D-Ih 


T(10*RND)» 










ON 1 


SOTO 


L070, 


109 


, 1110, 1 


130, 1130, 


117C 


, 119C 


, 1210, 


1230, 


1250 




1070 A»= 


07F5DD42F2- 


BCB9BF597BDC3BAA6ACFC 




GOTO 1260 










I09C 




3E72D75B7F227C47F35A4CE5456S27E9 



I 100 GOTO 1260 

1 1 10 A*="BE&2F7.10ED85D553F5]67CBIDD55D5F7 

1 120 GOTO 1260 

1 130 A»»"7F42FDD7D ! 6FB21 8FBB579CFE 1 BFBBEA 

1 140 GOTO 1260 

I 150 A»-"3A6ADFDB9B7.F694BF&BD9CF;5F40DDF7 

1 160 GOTO 1260 

1170 A«="79CDF5B5B7D8DF5«D51744ED2B79C3FE 

1 180 GOTO 1260 

1 190 A«-="DB6F5I'51F8ADA7BAA7:;23BF35B7610EA 

120O GOTO 1260 

1210 A»="7B4FED2B3A6FD39BDB0D7AD3BC93FABF 

1220 GOTO 1260 

1230 A«-"7F24F52D753731EFD5D456F7665E7575" 

1240 GOTO 1260 

1250 A«="EFB9B37aCF7SDB8AFBDB0CED21EFS9FB" 

1260 C«-"01234567B9ABCDEF" 

1270 FOR Al-1 TO 32 

1280 C1»=SEG»!A*,A1. 1) 

1290 N=P0S(C»,C1», 1) 

1300 E=112 

1310 F»112 

1320 0-112 

1330 H-112 

1340 IF N=l THEN 1360 

1330 ON N-l GOSUB 1500,1520,1540,1570,1590, 

1620, 1650. 1690, 1710, 1740,1770, 1810, IB 

40, IBBO, 1920 

1360 IF A1/2«INT<A1/2)THEN 1390 

1370 K=0 

1390 GOTO 1400 

1390 K>4 

1400 L=INT( (Al*l)/2) 

1410 CALL HCHAR.!4+L,A*K,E) 

1420 CALL HCHAR'(4*L,A+Ktl,F> 

1430 CALL HCHAR(4*L,A*K+2,G) 

1440 CALL HCH0R(4*L, A+K+3.H) 

1430 NEXT Al 

1460 NEXT A 

1470 CALL HCHAR(3,21,32, 10) 

1480 CALL CHAR<96,""> 

1490 GOTO 1970 

1500 H-96 

1510 RETURN 

1320 G-96 

1530 RETURN 

1540 G"96 

1550 H=96 

1560 RETURN 

1570 F-96 



610 RETURN 



1640 RETURN 



1660 G=96 
1670 H=96 



i RETURN 
I E-96 
P G-96 
> RETURN 
I E-96 
i G=96 
' H-96 
I RETURN 
I E-96 
) F-96 
• RETURN 



1850 F 
1860 V 
1B70 F 



•96 



G=96 
H-96 



RETURN 

CALL SOUNDdOO, 325,0) 

CALL S0UND(I00,265,O) 

CALL SOUNDdOO, 194.01 

FOR A-l TO 300 

NEX - 



1690 E=96 
1700 RETURN 



BfvSf 



> RETURN 
1880 E-96 
IB90 F-96 
1900 G-96 
1910 RETURN 
1920 E-96 



1940 
1930 
1960 
1970 
1971 
1972 
1973 
19B0 
1990 
200O 
2O03 
20O7 
2008 
2009 
2010 
2011 
2012 
2020 
2030 
2040 
205O 
2060 
2070 
20BO 
2090 
210O 
2110 



CALL CHAR (96 

CALL SOUNDdOO, 194.0 

CALL SOUNDdOO, 265,0 

CALL SOUNDdOO, 325,0 

B»="EN AVANT ■- 

V-3 

W"21 



REM 
REM 
S-0 



FFFFFFFFFFFFFFFF"; 



2170 
21B0 
2190 
220O 
2210 
2220 
2230 
2240 



CALL HCH0R(13,3,12B) 

CALL HCHAR13, IO»ENGIN, 31 , 3) 

CALL KEY(O.B,C> 

S-S+l 

S1-INT(S/Q) 

52-S-INT(S/8)«B 

CALL HCHAR(24, 4, 143,51) 

CALL HCHAR(24,4*S1, 135*S2) 

IF SCT-10 THEN 2180 

CALL SOUND! 10,247,3) 

IF S-T-l THEN 2BB0 

IF BO*? THEN 2280 

CALL GCHAR<Y-1,X,M) 

IF M-96 THEN 2240 

IF fl-133 THEN 2240 

CALL SOUNDdO, 139, 1) 

GOTO 2090 

CALL HCHAR(Y,X, 135) 

Y-V-l 

CALL HCHAR(Y, X, 128) 



Suite page 4 



I'V^I 


■ ■W^JAlJi 


AT^BOTWwS^X 


2 700.00 

3 700.00 


□ 




890.00 


r. 


ATAB! lOSOIfttfUI (JeOFMjucl 


36SO.0O 




W0.00 


D 


Logmrtj imtmjlm en promotion _ 

zx specti 


300.00 | D 

urn 




















Cure 13 TflV^ -TnaTogiqiies 


39S.O0 










yfi'vmeOcjew 


170.00 


;! 


WwluWnji UHf noif H Dfant 


190.00 


■■: 


Imptrm.uKpArptwcom 32 


1 190.00 


a 


AmpUK^nif «™<r 


160.00 










ir>inlj<c Onr/on>cV' f S737 


650.00 


a 








Bo4e 5 toulrxut Or p-tpm Aipn*t(nn 32 






BotW 5 lOlMMJi t)f pjpm fxxir imjj; ( (ii..r>li' SINCLAIR 




□ 


Corion rpritri/Mo^nrtK 


95.00 


'.. 


Ad.iputnjt Peiiin 












SIBLIOGUAPHIE 








85.00 


■ 


L^n.* K )l^*,ipr.U U m 


90.00 


:: 




90.00 


;■; 


tv.T.'|..-'l'.ip«rF U m(f»iljromrlf 


90.00 










CiHt pmit ZX Soetuum 




j 






n 




88.00 




JEUX 








75.00 


□ 








Sp^r^ruar. 


86,00 


D 



BON OE COMMANDE 

TARIFS AU 16/3/84 



Prfi no m 
Adresse 



Code PoiMI 

Ville 



C« prix sont indiofttfi et peuvent etre modifies 

tans prow's. 

Prodoits disponibies dans la limite de nos slocks 

en magasin. 

Participation aux frals de port et d'expCdrtlon en 

recommandt pour les logiclels : + 30 F. 

Promotion complete APPLE : iMnsporteur : 

20 kiloi + 185 F. 

LA REGLE A CALCUL : 

65/67, bd Salnt-Germaln, 75005 PARIS 

m ; 325.68.88 - Telex : ETRAV 220 064 F/I303 RAC 



AndroWe 


75.00 


:. 




7S.00 












75.00 












75.00 






75,00 






75.00 






95.00 


:. 










95.00 


Q 










95.00 










AKMMK 


95.00 


U 



JEUX DE REFLEXION 

95.00 



GciiHm Or l*niFf 



UTILfTAIRES 




iinczlE3ir-ZX8l 



CARTES - INTERFACES 


BIBUOGRAPHIE 


zxai 














C.*tT-.o 






W/KKlm (at/51 








tU:~ m.-virm d-jru' 
















[r .Vptixom 32 








ircZxai 




* du ZX 81 f rome l| 




i«ion r n Unq.H^ in.itfune ' 












A l.i fonqi>*[e deljrui 






CIHipou'7XBt 




poo' Z* 81 


Decouvi 


/ le 2X 8t 




Boiic 5 ' 


.,!-...,. ,>- vw pour imp., 


NOUVEAU PRODU1T: 


CMOS'" 


.n.IWf.-irv.l.tril.f/ KfA-.'J 



Pi.. I T C 




580.00 


■: 


815,00 


■-: 


> 32,00 


a 


"32,00 


■ 


395.00 


■: 


395.00 




2*5,00 




170.00 




7 500.00 




1 190.00 




BO. 00 








80.00 


■ 






75.00 


a 


90.00 


a 






12.00 


'. 


90.00 




33,00 




79.00 




150,00 




175.00 




375,00 


D 



Gulp 

<■.-.■..■ i. ..■,.,.-, ipcneu 
JEUX OE REFLEXION 



UTILITAIHES 





a 


| S5.0O 


□ 








. 


65.00 


■ ! 


75.00 


□ 


75.00 




75.00 












75,00 


U 


95.00 


II 


95X10 


J! 


'i'.'m 


J! 



tcommodore 



COMMODORE 



Commodoip64 Pal 
Interlace ccntronit + (Jble 
Lecieur de disques Vic [S41 
ImpnmiintcMPSaOI 
Toceur de courbw Vic 1520 
Cable pen [el 64 
Cable video 64 



Prix TTC 




2.990 F 


1 1 


895 F 


1 1 


3.480 F 


1 1 


2.550 F 


1 1 


I.9S0F 


1 1 


I50F 


1 1 


I50F 


II 




JEUX D ECHECS 
A micro-processeur 



Chess sensory 6 
Chess sensory 8 
Chess sensory 9 

Mepfiisto I 

Mephisto 2 

Mephisto 3 

McphiStO Junior 
Module Chess 9 381 CB 9 
Module Chess91345C8 16 

Morphy edition 
Cassette cip.ibtinc^ 
Cassette grunieid 



Prix TTC 




1 I80F 


11 


1 400.00 


n 


1 990,00 


1 1 


I.600F 


i'l 


2 200 F 


1 1 


2 950.00 


1 1 


1 380F 


n 


9ISF 


1 1 


I.600F 


1 1 


1.500 F 


1 1 


1,900 F 


u 


2i20OF 


1 1 i 


II500F 


1 1 1 


i . i oo r 


: 1 


I0S0F 


11 1 



Logiclels APPte II" %ur dltqucttc 



/Vpple logo stand.ti 
Apple superpUcH 
[ .ogicn-i Pascal il 



EDICIFLS 

MAIM', I t 

• l.iirni". iliiii-'IrlpiiiiiiV''.. Iiiiii 

liiil.iiilhim". et cjpoi ici iliellf 
MATHS ? "■ 

• suites et in tCiitales 



pn« rrc 




1 600 1 


i 1 


1 85/ F 




IG7/F 


" 




;«PPlG 



PROMOTION EDUCATION JUSOU'AU 31/3/84 

• I logltief edi-logo ou 

• t logiclels de la serle Point bac 
slgnale par-' 



• trigonometric 

• nombres complexes 
PHYSIQUE I * 









• induction et condensateurs 

• prod u it vectonel 
PHYSIQUE 2 

• circuits osciliants 
EDI-LOGO 

Le rameu* l.ingage LOGO, e 
dans la wrsion originale 
CAirrE PORTE -PAROLE 
Une voix claire et arliculee v< 
en (rarir;ai5 
Vl-H NATHAN 

• IFR |siri.ul.iteor de vofsj 

• Caicutauice 

• J'eupJore respace fmaUis| 

• L'organissteur Igestlon de tichkrs) 

• Le redacteur liranemcnt de texte) 

• Le correcteur 

Idielionnaire du traiternent de textcj 

EPt-LOGO 

Le lameux langagc LOGO, en IrancJls. 
djns la version ongin-ile devcloppee 
a I'Universite americaine M 1 1. 

PORTE PAROLE 

Voire micro-ordinatedr peut parler 1 

Ecoute/ 1 Une voix dine artiruiee 

vousp.tileenlranc.ns 

Locigicls OEL BLEU pour APPLE II 

lur dlxquettes 

l.c II. r." explique 
All cceur du Elasic 

Rendezvous 

Rcseau 

Cnritrftlcur .lenen 

Fraclions 

Decimales 

Antfimetique 

Savoir compter | 

Perception 

ChCKlie/J.idilierente 
Augmented v 



295 F 
295 F 


D 
D 


295 F 
295 F 


1 
! 


295 F 


3 


1 490 F 


3 


I.39SF 


1 1 


495 F 
585 F 
395 F 

2 880F 
1 925 F 


□ 

G 

! 1 
i 1 


1 925 F 


1 



Ai if) mente/ voire 

Suite de nomlHes 

Cooctntratton 

P.ircil ou different 

Mots cwrWs 

Mots CKMl qeoqranhir 

Mots cioises et mots seen 






Pnx rrc 






I490F 


n 




Pnx nc 






1 395 F 


n 





i'ik rrc 




820.9J F 




937.50 F 


1 1 


6130,70 1 


11 


55 1.20 F 


n 


293,201 


ii 


293.20 F 


u 


•,V,M,i 


1 1 


S 39.46 F 


1 1 


MJ0.2Q 1 


1 1 


410,4 7 1 


1 1 


539,46 F 


1 1 


410,471" 


: ) 


773.20 F 




293.20 T 


N 


293.20 F 




771 .'<Ji 


i 1 


293.201 


1 1 


793.201 


1 1 


293.201 


U 


77.1.701 


i i 


29J.20T 


u 



DIRETIKT/BAS 



Nevousiaissez pas impressionnerparlenorndu program- 
me : ca n'est pas du hollandais ! 

Cette petite merveille de programme va vous permettre 
de tirer vos directories (catalogues) sur imprimante (GP 
80, GP 100 ou LPVII) au format etiquette. 

Philippe ROUYRE 



£3 "* — DIRETIKT/BfiS — . 






30 *- RECDPIE D'UN DIRECTORY SUR ETICUETTE 






40 '* CODE [MPHIflfltJTE PREVU POUR GPE0. GP1 23. L PVI I » 






30 ** 






E0 '* MES50GES ERREUR DU NEWDO5E0 — VOIR DOS UTILISE » 
90 CLS: CLERR1000 










108 INPUT"D~5p rt-z vous I es i nsi ruct i ons, " 1 0* 






110 IF LEFT»<fl«, 1 )-"O"THENGOSUBlBt0 






120 CLS:PRIMT-D e5 . r?z vous ur, tltr« e-n *r,t**xe d'et,aueue " 


:INPUTflfi» 




130 IFLEFTKftfi*. 1>="N"THEN GOTO200 






140 CLS 






150 INPUT-votr* % i 1 re < 16 »r«a«res «axi)"iflB* 






1E0 LPRINTCHR»(31)OB*:LPRINTSTRIMGH20, "-") ; iLPRI NTCHRK30) 






170 QNERRDRGOTO720 






188 DIMTC»(30) 






200 CLS:I"0 






210 INPUT-NUNERO DU DRIVE fl LIRE 10-3). " I Z 






220 IFZ(0ORZ>3GOTO210 






230 Z=Z*1 :ONZGOTO2&0. 250. 260. 270 






240 CMD"DIR 0":rjOTO2E0 






250 CflD"DIR 1":GOTO2E0 






260 CHD"DIR 2*!G0TC23B 






270 CHD"DIR 3 




^v 


2G0 PD=154e3' DEBUT 3E LIGNE MEH0IRE VIDEO 


rt 


i% 


300 FORH=PDTOPD-640STEPE4 


^* u 


\ 1 


310 IFPEEKf.K)=32THEN530 ^^» 


g in 


\\J 


320 FQRJ=KT0K*45STEP15 ^^^^^W 


*■% ^ 


F ^^ 


330 IFPEEK(J)=32THEN52B *^T ^^L 


^ j 




360 F0RI=JT0J*12 » « 1 


k^^ 




350 IFPEEK(1>-127THEN520 V » 






3S8 C*=CHR«(PEEKCD) W 






370 IFC*=" "BNDI=JTHENS20 






380 IFC»=" 'THEN410 






390 T«=T»*C* 






400 NEXTI 












420 PRINTagea. ■ <' , *CHR«(91>*")HflUT. C*CHR*f.92)-t">BflS, C-+CHR* 


94)* M >fWRNT, 


"♦CHR*( 


93)*">fiRRIERE. (ENTER) VALIDATION. </) MENU"! 






438 PDKEI+l. 143 






440 H»=INKEY»:IFH*=-"THEN440 






450 IFH«="/"THENGOTD120 






4E0 IFH«=CHR«C13)THENCC=CC*I:TC*CCC>=T*:DOT052B 






470 IFH»=CHRS'.9)THENP0KEI»1, 32=GOTO520 






4S0 IFH»="->"THEN650 








490 IFH«=CMR»< 1B)THEN670 
500 IFHS=CHRS'B)THENE9B 
518 GOTQ440 

528 T»- NEXTJ 

530 NEXTK 

540 IF CC=8 THENPRINTaS96."FIN DE TR0.I TEnENT. - ! GOTOE40 

558 F0Rt=tTOCCSTEP3 

5E0 FORFF=0TQ2 

570 LPRINTTC»a*FF).STRING»(13-LENrTC*'I.FF>)," ">( 

5B0 NEXTFFiLPRINT 

590 LL=LL*1 

E00 NEXT 

ei0 ifll=9thene;8 

£20 LPRINTSTRINGS19-LL. 13)1 

630 PRINT3E9E, "ETIDUETTE TERMINEE. " s 

E40 IFINKEYSO " "THENG0TO1 20ELSES40 

E50 IF KOPDTHENK = K-Eo:POKEI*l. 32: J-J-E4 

£60 T»»-":GOT034B 

E70 P0KEI-H.32:K=K*64:J-J-E4:F.l 

EB8 T»="" :GOTO340 

690 IF JOKTHENJ=J-15!P0KEI*l, 128 

700 T»= GOTO330 

710 • 

720 IFERR/2-M = 32flMDERL==24eDPERL = 250OREPL=2£0ORERL=270THENPRI 
SK ILLEGAL OU DRIVE ABSENT" : RESU.-IE210 
730 IFERR/2*1=5E0NDER1.=243THENPRINT3E96. "P05 DE DtSOUE DQNS LE DRIVE 
"(ENTER) SI C'EST CORRIGE. " : ZZ»: RESUME24B' •*-»'*POS DE DSK DPI. 
748 IFERR/2»l=58flNDERL=250THENPRINT3B96. "PflS DE DISPUE DQNS LE DRIVE 
" (ENTER) SI C'EST CORRI GE. "; ZZ» : RESUME250* ••'•■. -PAS DE DSK DRI 
750 IFERR/2*l=5SANDERL=2E0THENPRINTaS96."PBS DE DISCUE DOMS Li 
"(ENTER) SI C'EST CORRI GE. "i ZZS: RESUME260' ****• -PBS DE DSK DRI 
760 IFER8/2*l=5BHNDEflL=270THENPRINT3E3E. "PRS DE DISDUE DQNS LE DRIVE 3 
"(ENTER) SI C'EST CORRIGE.":ZZ«:flESUME270'"..--.pflS DE DSK DRI 
778 END 

1810 CLS:PRINT3e4. "= = DIRETIKT = = " 
1020 PRINTSTRINGKE4. "-")t 
1030 PRINT:PRINT"Cc orosrsxme vous orrnet dt creer «es 

106D PRINT"!! vous Ut oossibie d* chOltt'r les noms ties 



1050 PRINT-UNE FDIS CHOISI LE NUMERO DU DRIVE DAN5 LEQUEL VOUS RUREZ PLftCE LE D 
ISOUE ET LE DIRECTORY OFFICHE DEPLPCEZ VOUS RVEC LES FLECHES ET VALIDEZ L 

ES TITRES CUE VOUS DE5IREZ IMPRIhER PAR (ENTER) . POUR REVENIR BU MENU </>. 

I860 PRINT=PRINT" (ENTER) Pour eont i nuer. " J : INPUTJ : RETURN 
1070 END 



5E9£. ■'rjjMERO DE DI 



DRIVE 2 ■ 



DIRETIK/BOS 



SERPENT 



Guidezvotre serpent dans le jardin, qu'il se gave de pom- 
mes... Mais attention a la cloture electrifiee qui vous ache- 
verait ! Ne vous mordez pas !a queue non plus, votre venin 
est aussi mortel pour vous que pour les hommes. 



Serge DEMOTTE 



00 GOTO [0000 

010 BEM ERASE A TARGET 

020 IF D0TS<P1IND0TS OP RND 1 1 J JDOTCMAHCE THEN 1100 

O30 uOTS-DOTS-i:t_ASTDOT-LASTOOT.l:IF LASTDOT >MAi(0OTS THEN 1.ASTD0T1 

040 p-dotrow(lastdotj:c-dotcolilastooti:locate c,s,i:rem check uhere dot i 
030 reh if still dot, erase it, amd loueb score 

060 IF I -DOT THEN color blackiplot c,r:if pts>o then PTS-PTS-2 
) REM PLACE A TARGET 
) IF 00TS)»MAXD0TS OR RND1 1 I /DOTCHANCE THEN 1300 



FINI 



MINF 



irstdoti-cicolor qot:plot 



2000 REM • 

J01O REM oTMlNG! 
2020 REM oONCE f 



2030 IF NOISE0>0 THEN NOISEO-NOI 5E< 
2030 IF N0ISE11O THEN MOISE1-N01SE 
2100 REH SHORTEN TAIL OF UORM 
2110 IF SEGS(rtINSEBS THEN 2200 
2120 SEGS-SEGS-I :lastSEG-LASTSEG« 1 
2130 COLOR BLACKIPLOT SEGCOL i L ASTSI 
2200 REM LENGTHEN HEAD OF VOBM 
2210 IF SEGSJMINSEGS then O 

2220 rem see uhere he uants to go 
2230 rem ignore him in attract hodi 
2240 1-stickioi : if attract then i" 
2250 if ioi3 then hspeed-hchange1 
2260 rem determine neu head positii 
2270 r»bou«vsfeed:C-Col •hspeed:loci 
2260 rem can he go there"" 

2290 IF lOEDGE THEN 2330 

2300 REM HE HIT THE BORDER. BOUNCE 

23IO If R<-MINRrjU OR Rl-MA/ROU THEI 

2320 IF CI-MINCOL OB C)-MA^COL THEI 



2330 bem he can go thebi 

2360 hou-p:col-c!colob ! 

2180 rifttTWOX If'.l'.f ',' 

2300 SEGROUiF JBSTSEGI -R( 

2*00 BE" BUT IS IT UI6E? 

2414 l r 1< '00' 'HEN 2430 

2420 REH HE HIT A FAROBT! 

7430 SOUND 0,0,O,0;PTS-PT6-IO'INT(0.0H>i 

?■>■>; MUNS 0,33,12|*!N0J»«O-a(«OTO 2300 

2430 II IOSI ■■•-■< H > nil ll j-30O 

/*/,•] hi n iii .a r niM-,i i i ■ 




24»o FOR 1-0 TO J: SOUND 0,29, 

iii', sound o,o,o,o:crash>i:ooio ?->io 
2300 OOBUD iooo 
»|0 I'l rURN 



I !COR J-0 I 



&P& 



10030 REH • LIMITS AND SI2ES • 

10040 MAXD0TS-2O:REH ■ TARGETS ALLOWED 

10043 WIND0TS-3TREM DON'T DELETE DOTS UNLESS MINDOTS ON SCRf 

10030 HAXSEGS-230:REM LONGEST POSSIBLE UORM 

10060 MAXCRA5HES«3:R£M CRASHES PER GAME 

10070 rem * screen control * 

10090 graphics 3:setcol0r 2,0,0 

10090 minrow-o:mincol-o:haxrow-19:maxcol-3w 

10100 rem diddle video display li5t 

10110 rem to produce big letters 

10120 5crnmap-p£eki3601>236«peeki361> 

1o110 if peektscrnmop) < >66 then scrnmap-scrnhap . 1 : goto 1013c 

10130 poke scrn«ap,70:p0ke scrnm0p«3, 6 : poke scrnwap*4 , 6; poke 

10160 ren • colors (and registers) » 

101?0 block»0: segment- i : d0r«2: edge-3 

10130 setcolor 4,o,0:setc0l0p 0,0,10 



UNO I 



i,2, a 



10210 dim dotpouima/dotsi , dot col ( maxdots ) :rem keeps track of targe! 

10220 dim segr0uimaxsegs1, segcol (maxsegsi rbem keeps track of uorm 

10230 dim bl«(10i:rem for aligning numbers 

1o240 dim hchangedsi , vchange ( 1 3 1 : rem st ick- >di rect i on tables 

10300 rem * oddments » 

10310 poke b2,0:rem left margin to zero 

10320 poke 732, l: bem turn off cursor 

10330 bestpts--i:rem best score so far 

10340 attbact-i:rem start in ATTRACT MODE 

10330 8l««* :pem leading blanks for numbers 

10400 rem set up jorstick to direction tables 

10410 for 1-0 to i3:read c,r:hchangeiii-c:vchangE(I)-r;nexi i 

10420 DATA 0,0, 0,0, 0,0, 0,0, O.O, 1,1, 1,-1, 1,0 

10430 DATA 0,0, -1,1. -1,-1, -1,0, 0,0, 0,1, 0,-1, 0,0 

11000 REM 

110IO REM 6PER-0AME IN I T I AL I ZAT I ONO 

11020 REM • 

11030 PTS-0:REM SCORE 60 FAR IN GAME 
11040 CRASHES-0:REM NO CRASHES YET 

1151-0 REM BPEfl-CRASH I Nl T I AL 12AT IONU 

11323 FOR I-I TO 200INEXT I 

U330 firstdot-o;'lastdot-o:dots-o:rem ng targets 

11340 F1RST££G-0:LASTS£G-0:SEGS-0:REm no UORM 
11330 MINSEGS-16:REM INIT LENGTH 16 

H360 row»maxrow-i:col-maxcol-i:hspeed--i;vspeed--i:rem init dir Ah 

11600 rem orau board 

11610 put "6,i23:color edge 

11620 plot mincol,minr0u:draut0 mtncol.maxrou: draut0 maxcol , maxrou 

11630 dbauto maxcol , m inrou : drau 10 k inrou, h inrou 

11630 rem • set up initial targets » 

1 1660 dotchamce-i 

11670 if d0t5<mindots then g0su1i loooiooto 11470 



U7?o print -ii zap ici moo tiiioi5* 

11730 PRINT 'PRESS llirt TO PLAT. INECDS A JOYSTICK)- 

11740 OOTO 1 IBOO 

11730 PRINT *U l*«l blll'l 

11760 PBINI BL«H.ENISTR»ILASTPTS)II ILASTPTSl 

11770 PRINT HL»ILENI6TB«IBE6IPTSH I IBESTPTSI 

11780 PRINT ' PRESS »t»rl TO BEOIN" 

1IS00 IF P6«kT33»7*H >?""THEN ATTRACT-OiPOKE 77,0!OOTO HI 
liaio OOGUB 2000: IF CRASH THEN 11300 

11020 ooto iieoo 
uvoo print - u «-i 

I300O PRINT -fckftCOREl -IPTSI- ■ 

izoio print ■crashes: -icrashrs 

13070 oosun 7000.' if craah-o then 12000 

17100 CRASHES-CRASHESM X IF CRA6HES13 THEN IIBOO 

13110 i ■ ■■ii 1 [■■■•1'1'i: If PT6>DEBTPTB THEN BESTPTfi-PTSl R6M 0A( 

17170 ATINACT-lMiOTO 11000:«EM BACK TO ATTRACT MODS 



KOARKS 



Vous etes seul au milieu de droles de petites betes appe- 
lees KOARKS. Sur une planete hostile. La seule maniere 
de survivre est de manger la substance energetique 
recouvrant le sol. Les KOARKS naissent a partir d'ceufs 
pondus par d'autres KOARKS. Ces ceufs sont comesti- 
bles. 

II est done possible d'eviter ces betes immondes... 
Bon appetit Messieurs ! 

Lionel CAILLER 



Mode d'emploi : 

Lors de la preservation appuye? sur Q pour iouer seul. appuyez sur W 
pourjouer a 2. 

Le programme est compose de deux parties. La premieres est le pro- 
gramme basic si lueentre les adresses S800et S2900. L'aut re est le pro- 
gramme en langage machine place aux adresses S2E00 a $3300 
S3000 a S305F adresses reservees aux caracteres graphiques utilises 
par le programme 

S306O a S32FF sous programme utilises par le programme machine et 
le programme basic. 

S2E00 a S2FAO programme en langage machine formant la boucle par- 
ticipaledujeu. 



Les donnees du programme en langage machine sont ptacAes aw 
adresses S500 a S5A0. 

Les pages memoires 55000 a S8FFF et SDOOO a SEFFF som i 
pour slocker des pages rlccran durant le doroulement du jeu 
Le contenu de I'adresse 558 sert a la liaison entre le program^,- ■ 
ne et le programme basic Dans le cas oil ce contenu est egal a 5 lo 
joueur a ele raltrape par lun des ennemis ou KOARKS. Par contre lors- 
qu'il est egale a 10 le joueur a efface la totalite de la couleur du tond. la 
partie reprendre alors a zero, mais le score n'est pasremisa zero.la par- 
tie continue. Lejeu est accelere.unennemide plus apparailraet fa cou- 
leur du fond changera. Particularite : Les couleurs apparaissant au fur 
et a mesure que les parties sesuccedent sont aunombrede8{lenoiret 
le blanc non comptes). 



u\p-f« 



■ ---■ -■-: --. .- -;.;; ; : . L . : Pfl(;e D „.--„ . 

■ --■' :-: :- .- ;c-- . e .-. - -(■ _. ...- 
"POKE ;ot- .-: poke ;•!>; -, .- . , 

■ -37 POKE \-i\-. is J ' 
12 POKE 49232 | UTflB lQ HTM j 

PRtNT JULEZ iUEL(WE3 E ■- r-aTI 

ONS POUR JOUEfi - cosus 3680 " 

_ [r- -J = J. r _._. t ,- K|J . S6ea 
l » * F ** : * THEN P01C£ ; :--- -...j 

>-*LL 1£7>; -;-; u 

15 I rem lEFFfiCe auec 
RftF ::■:■£ 

LS ir PEE* :-;-■ , z r«En ; flL l24 B 
. GOTO 58 " 

1? POKE it--.: poke 134S.8 POKE 1*49 

POKE 1338.0 

28 CF = 5 FOB . = 
NCOLOfi = [hi 

■1 NEv:r 

30 UTAB 17 HTAE 1. 

E'.'FIER 1534 - 

43 c« = CtfRI : = : - ,;hr* <so.;j 
UTAB 22 PRINT -_ E , [,, C( 



r 'j n -; -; t €- 


: 5 


3K ■ v msub 


»■} 


priht ■ :opvk :;- 





-:f: 



:* 



30 casus 3300 :-- r» SM] 

M* FNEN POl E 12739,238 
CALL 12736 :0T0 50 

30 HJ* = 1 :- .-i x -u- thE» NJSL 

=• 2 
30 CALL 1244$ 

90 NORMAL 

111 DK8) * 197 CO' J) = I*.; .;,;, *j 



coi ; 



291 



Hi Fl'. = I FOR P » 1 TO rlj'; 




' 3 HEX" P 




12fl FOR U - 1 T>; HJX IF HC*< 




< 9 THEN 290 




130 GOSUB 2084 =op n M TO 




he:<t H 




133 POKE 1.50 > 32 1 (H - i> 


C«i 


140 ON FLX GOSUE 4000,4150 




130 FOR T = l TO 1000 MEXT ' 


■ HC' 


» NC%<H) - t ^0-^E 1 ■ SO ♦ ' 




- : :-.l t:?43 if hc-:> h 




THE'i ^rO 




;-;o UTAS 14 PRINT B = 5 




170 PFIHT 7-E E •«»..*: 


l> 1 


• «■■ 




180 FRIHT T-l- £■:■■* > . 


i » 1 



1040 


hflot ix * t2 


■ :f • io 


« 


cf ro ■ - i-; 


■ CF-.i V - LO) 




■:f 




1010 


HPLOT i - :? 


« CF.CY - 12: 


* 


CF ro (X - :-;■ 


t CF. V + «» 


* 


CF ro i :: - 20) 


■ cf.-,' - ■: ■ 


I 


■:? ro i :-; * ii ) 


« CF.<¥ ■• 7> 


* 


CF 70 :: - :; ■ 


t CF. r - 9;- 




CF TO iX * 20 > 


' CF.I I' - 10.' 


» 


CF 




lose 


HPLOT ro x • 


■ 18) ' CF.i ,' 


+ 


;■;:■■":> 


• 20) > CF.- 


+ 


io > * cf to ■ ;■; 


- il ■ i CF.i Y 




12 i i OP 




10 70 


HPLOT TO 1 X - 


■ 23) t CF.I ■■■ 




1Z :■ « CF ro i 


* 23) « CF. t 




cf ro ■ ■: - :f 


. CF.' V * 8) 


* 


»:f ro i :■: - i? :• 


t CF,Y t CF TO ' 


♦ 


2S> 1 CF.i v - : 


' 1 t CF TO 1 


+ 


29> t CF.<Y * 1 


. = :■ I CF 


1090 


HFLOT TO CX i 


33 :■ . CF.CV 


♦ 


12 > * CF TO (X 


* 34> * CF.. V 


* 


11) 1 OF ro 


- 34) ' CF, v 


* 


10 > * CF TO • :< 


- 33) t CF.- v 


+ 


9? * CF TO ■ X - 


31> t CF.I'/ 




? ■ .( CF 




1090 


HPLOT TO (X < 


.30 > * CF.CV 




e> * of to i x - 


30) % CF,(Y 


♦ 


7> J CF TO 'X - 


31 > t CF.! V 


* 


G> > CF TO (X i 
*■> » CF RETURl 


T3> * CF.CY 


:^;~ 


REH mtftietlN 




1999 


F£" ■*■■*»>:■*[ 




2000 


t B = £ OTftE 


7 PRIHT 


2918 


EI = *" 






[F H - 2 r^cn 


£030 


:o:o 


FPIMT E»: " *" 


.E*;" l»-,B»l" i 


»:" 


i-,B*r" •" -;oro 2340 



PRIHT T&E' 



190 



-:.'-r 7_: 



£00 PRIHT 7-E l ■ ■ ■■ > ■ * > . . 

• * - 

210 PRINT T -E £:■"■ * »•* t • t ■ 

• •■■- 

228 F0= »i 1 TO 1=00 NEXT N 

£30 -:c » o p:p h ^ i to jah * 

IHT ■ SC - ..■ IS) SC ' SC + i AH 

« io •-::•... - ah i *.■-;> * io 

M - I! i £ ■ MEXT >• IF SOi 9) 
■ '.'. THEN SO S) ■ SC' GOSUB £100 
290 NEXT U p.'. = £ IF i-icv 1 :■ ; 
» «hd 'iC. £ =0 THEN IS 

300 GOTO '.£0 

=97 REH HltllMtliiltlltHntlltMi 
998 -""II •»».■ SFFFICHAW QE Lfi •■■ 
lllllllfltllll PRESENTATION HI 



2078 PREK 


IT T«E' 


E: 


. " # US B 1 B ■ 


• • 8 •" 






2888 PRIK 


IT TABi 


B' 


'(■ •» »• *» =» : 


• tt « 


#- i RETIJPi- 




£500 NO* ■ 


! -- : fe 




TrtE S HTkE -; 


PRIHT " 


INSCRU 


■EZ 


i.OTPE HOP! fl L AIDE : 


c-; 


TOUCHES S'JIUAHTEi 


2595 PRH 


IT INI 


PR-: 


E HTAE 8 PRINT "■ 


:■":■■ HTP.E 


12 PR: 


:nt 


•<-"j NORMAL 


PRIHT - 


OEPLAt 


;ent 


LE CURSEWR " 


PRIHT : 


INUER! 


;f 


HTAB PRINT "Flfti 


": HORH&L 


pe.it 


it ■ 


affiche le ■:— -h:-e- 


E CHd-;i " 








2387 UTftE 


21 ; HTAB 


7 PRIHT "PErl-FFiijE 


* EFFACE 








PRIHT TAB( 17 




FIH "A = 2.5-;: 


- S.3' 


HCOLOS 




5' GOSUB 3380 -fl 


> I 5 


GOSUB j 


!300 




2510 <JT&S 


16 HTfiE 


6' POKE 50.120 


FOR H ■ 


*;5 to 


90' 


IF H ' 00 TNEH 



UTAB 



AE 6 



1000 


HP 


LOT X 


t 




Y * 




. , 




to :-: 


* CF, 


t X 


CF 


TO < 


X 


* I v 


i CF ■ 


+ 


8 .. 


* CF 


TO 


■ X * 


6/ 


t 


:f, / 


* CF 


TO 1 X 






CF.' 






* cf to c; 


+ 




* CF. 


CY 


♦ 1 = 


■ X 


CF 


TO i 


:x 






t CF. 




• i.-: 


> * 


CF 






1018 


HPLOT 


TO 




7) 




( 


CF 


70 ■ 


* 




CF, 


(Y 


* d 


:■ * cf 


to >y. 


♦ e > 




;f,< 


y + 


fi ) 


» CF TO () 




18) 


t CF 








i*F 






10£0 


HPLOT 


TO 


•: - 


it : 


, % 


fF,i 


: v 


* 


e> 


1 CF 


TO 


.', - 


US 


> a 


CF,i 


i 


* 


10 ■ 


1 CF 


TO 


<"X 


* 10 > 


1 CF 


■ < V 


* 


12 J 


* CF 


TO 


'A 


- s; 


t 


l-F.i 


Y 


* 


L2 ■ 


* CF 


TO 


■ :< 


- 12 ) X CF 


< Y 


+ 


12 ; 


1 CF 


TO 


■ A 


- IS 


:> « CF. 


i Y 




18) 


t CF 














1030 


HPLOT 


TO 


■ ■ - 


171 


S 


PF.i 


Y 


* 


S> 


t CF 


ro 


N - 


131 


t 


CF-. 


Y 



2528 PRIHT CHP» <rl>,-" - .- HEXT H> 
UTAB 13^ HTAB 23 PRIHT "• / ". 
2538 HCOLOR = 1 HPLOT 25.1:0 T0*247 
50 TO 247.113 TO 25.113 TO 25.130 
23*8 HOPHAL 'A - 8'X ■ t'CO > 1 H 

- KCOLOR = 7 GOSUB 3300 
2543 H - H * 1 

2350 GET Pf HCOLOR = GOSUB 3586 
25€8 R = ASC CR*) :■' = X * CR = 21 > 



23^3 IF ;■; 



15 THErl : 



2530 IF CO ) 7 THEN CO = 
£590 HCOLOR a CO GOSUB ! 
2608 IF fi* ', > • " THEN i 
2503 POKE 12739.150 CALL 
2510 R,«X*A*1$*S4 i 
THEN R - <R ■ 93) * 46 < 



£rC50 



UTAE I 



(TAB 5 



MT«E 



■IT^E '.5 

PR I, 



HCOLOR = 5 R 
5 TO R * 7.43 TO R. »6 TO i 
£->;o IP h 11 THE I 2343 

£.;70 POKE 12739.100 CALI 

£997 REM ■••••••••aattaa 

£993 REM ■■» CLASSEKEHT 
£9?9 REH •**.., c em, 

3010 HO* 3) = HOI 
3020 FOP H = 7 TO : STEP 
! 30-h • i :■ THEM R • SOi i 
30<H:- - SOl H * 1 NO* N) 

- 1 .■ SOi H ♦ 1 ^ f NO* 

- PI 
3038 NEXT H 

3040 REM •»" *•«»•#•■ 

3043 REM ttMSAFFICHACE I 



3050 :; ';rsE 28 htae 5 PRINT :la 

HEHT " 

39S0 FOR N = : TO -: 

3035 IF 30< fl / * .J THEN 3030 

3070 PRIHT PRIHT TAE< 8)f-'H" "N 

N)J TAB! 26>;80<M)" POINTS " 

3000 NEXT H FOR N = 1 TO 3000 

NEXT H PETijRfi 
3500 R <• X * 14 - 13 r • A < IS . 113 
3310 HPLOT R.T 70 R,T * 12 TO R 

* l.T - 12 TO P - l.T TO F ■ - 12. T 
TO P - 12. r - 12 TO R * 13. T TO R 

* 13. T ♦ 12 TO ft, T ♦ 12 RETURN 
3300 C-ET R»- POKE 12737.150' POKE l£l 
•130' POKE 1274J.* CALL 12733 

3318 RETURN 

3993 REM ItlllMMMtlllMtHIHtOil 




= ■ RUE '■ i> : 



3> ■ 



HMD C0> < * .3) * 233-PXCM) 

IHT ( PHD tl> J 3S> * 1 PYl H 
- IHT < RNO CI) » 13) + 7 
4882 PO<l,N) = ?;■:< u> Poi 2,u> = f 

*885 REH »»fl=*.=B.=.*B.»B.B. : . 



4810 



COLOR 



■e' -i: 



.EH 0,39 AT 9- 

FOR B = 43 TO *7 HUM 0.39 A1 

NEXT E 
4020 COLOR - 3 FOR 8 - 1 TO S 

HLIH 8-39 AT E^ MExt B 
*030 UTAE 2 HTt-E 1 PRINT "SCOK 
0008".'' HTAB 23 PRIHT "RECORD ° : 
40*8 FOR H = 2 TO STEP - 1 fit- 

- IHT l PEEK < 134S + H) -' IC: 

PRIHT AHr PEEK 1 1343 * N> - AM 

% 13; NEXT H 
40*3 COCK) - COCH> * 1 IF COfU) 

t ? THEN CO'iJ' = 
4050 IF PK i > 10 THEN 4890 
4038 IF HECU> J 30 THEN NE(M) => 

♦ 1 
*088 UKU) = UI(U> - 30' IF DKU) 

< 1 THEN l.iKW> " 200 
4098 IF CO<H) = 1 OP CO<H) = £ OR CO : 

- 3 OP COCN) = 3 THEN 4110 
4100 PRINT UTAB i FOR E = 1 TO 308 

PRINT CHR» C242)j CHR* CCO(CO<H))>J 

CHP* (242)) CHP* <C0<CO<H)) * I'; 

NEXT E GOTO 4128 
*110 COLOR = CO<H>' FOR B = 3 TO 43 

HLIH 0.39 AT E NEXT E 
*I28 FOP 5 - TO 154 STEP 154 

FOR N = 8 TO * STEP t>n ■ S * N 

HCOLOR =■ 3 HPLOT 8.22 * " TO £7? . 
■< PI. HCOLOR * I HPLOT 8.23 * M 

TO £79.23 * H NEXT H.S 
*123 COLOR - 3 ULIN 4,44 AT 

ULIM *.*4 AT 39 
4123 HCOLOR = 7 HPLOT O. 3 TO £7?, I 

TO 279.191 TO 0-191 TO 0.3 TO 13 

to 1.191 ro 278-191 to 278.3 ro 2". 
TO 277. 191 
*130 CDM,U> - REEi ' 4335* > CD' 2, W ) 

. peek C43SS5) HrKl.M) * hm.£.w. 



^ Suit 



Suite de la page 2 



-o- 



99 



/V^ 



2270 


goto 2090 


22S0 


IF e eg then 23G0 




CALL GCHAft(Y*l,X,ri> 


23O0 


IF M-94, THEN 2340 


2310 


IF M-135 THEN 2340 


2320 


CALL sound* 10. 139, 1 


2330 


GOTO 2090 


2340 


CALL HCHARIY.C, 1331 


Z3O0 


Y-Y*l 


?zt,o 


CALL HCHARIY.X, 12B) 


2370 


f ,:iln :■..'.., 


2300 


IF &'. ,QZ THEN 2480 


2390 


CALL GCHAHIY.X-l.M) 


2400 


IF n- r l(, THEN 2440 


2410 


IF N-13S THEN I:*'.'. 


24; 


CALL SPUMDf 10, 1 VI. 1 


74 -.o 


(iura 2090 



2440 CALL HCHftR!' 



■^•4<,<J CF.LL 



2470 


GOTO 2090 


24 HO 


IF B<)6B THEN 2090 


T190 


CALL GCHARIY.X'l ,n> 


2S0O 


IF W=96 THEN 2550 


■: • . i " 


IF M=13.r, THEN 2550 


2320 


IF X=28 THEN 2620 


2330 


CALL SOUND (10. 139, 1) 


2340 


GOTO 2090 


2330 


CALL HCHARIY. /., 133) 


2360 


»X*I 


2370 


CALL HCHARIY. X, Ua> 


23B0 


GOTO 2090 


2390 


REM 


2600 


REM GQGNF 


?b 1 


REM 


2613 


CALL HCHAA(3|21,32 t 10) 


2620 


CALL HCH«R<Y.2B, 133) 




CALL HCHARIY. 29. 128t 


2640 


CALL CHAR (76. "") 


2630 


FOR A-30 ro STEP -1 


'.'." 


CALI. S0IJNDI100. -l.A) 


2670 


NEXT A 


2680 


FOR A"l ID 300 


2690 


NE*T A 


2700 


CALL CLEAR 


2710 


CALL CHAR(96,"FFFFFFFFFFFFFFFI 


2720 


SCDRE-SCURE*T-5 



2730 PRINT " VOTRE SCORE : 


" ( SCORE 


27*0 FDR A-l TO 12 




2730 PRINT 




2760 NEXT A 


— .t/"* 


2770 FOR A-l TO 200 


-* tvQ\U 


27B0 NEXT A 


VLP& 1 


2790 FOR A-l TO 12 


P n 


2B00 PRINT 


—i C 


2010 NEXT A 


^.fcftpVX- 


2H20 IF T-BB THEN 2H40 
2B30 T-T-16 


SW 1 ^*' 


28*0 GOTO 730 




2850 REM 




2B60 REM PERDU 




2070 REM 








2880 CALL HCHAR ( Y, X. I 29) 




2B90 CALL SOUND (300, -B, 0) 




2900 FOR A-3 TO 7 




2910 CALL SCUND(300,-A,0) 




2720 NEXT A 




2930 CALL CHARI96. "") 




2940 FOR A-l TO SOO 




2930 NEXT A 




2760 CALL CLEAR 




2970 CALL CHAR (76. "FFFFFFFFFFFFFFFP") 


29B0 ENOIN-ENGIN-1 





REM IIUIIMilttlllllli 

••• TRAH8FERT DES I 
REH » AU PROCRAHHE EN I 



1130 POKE I344,SC<l.H> POKE 1343 -: 

W> POKE 1343.SC- 3. U> POKE l!3T. IE . 
POKE 1352.CE" l.» poke 1J53.:C L .. 

POKE 1334, UIi H> POKE 1337.' [i 
4178 POKE 1338,NTKI,H) POKE 1339 
H) POKE 1353. PO' i.y :< ■ POKE 1117... \ . 

1188 FOR H * 1230 TO 1342 STEP 2 

POKE HjPX<U) POKE H - l.F,'.i' 

POffE H 4 93.0 POKE H • 97,SY<H 

NEXT N 
*280 UTAB 24 HTAB t PRINT SRC 3 

IF HCX<U) > 1 THEN UTAE 2* HTftB 1 
FOP P =■ 1 TO HCK<U> - 1^ PRINT .>.i 
£ >; CHP) < 193>:" "l NEXT F 
*203 HCOLOR = 7 HPLOT 0,191 ffl 27S 



4218 HTAB PX<II) * l UTRE PY<H) 

* I PRINT CHPI (2*2>; CHR* < 19: 

4215 POKE 12737.255 POKE 12739.25' 
POKE 12741, 2> CALL 12733 POKE : 

130^ CALL 12733- POKE 12739.100 
CALL 12736- GET P« 

*2£0 IF PK '.. > IO THEN POKE 1362 

4230 POKE 2. IHT < RND '111 £00 
+ 36)' POKE 1333,1' POKE 1353.40 
POKE 1331,1' POKE 1330.139 POKE 

.2' POKE 1335.0 CALL 11773 

4248 PK = PEEK . 1338; IF PK * 10 
THEN 4010 

4230 CALL 13000 



297 

£93 FEH i 



»*« 



4308 SCtl,H) = PEEK <I344)'SC<2.M) 

- PEEK C1343)'SC<3,H> - PEEK >13*3 
■N£CH> > PEEK ' 1331 >>C0<1<H) - 

PEEK i. 1352^CD'.2.M) = PEEK (13331 
4310 NH<1,U> - PEEK C1338) NMC2.H: 

■ PEEK (1359> P0C1.H) = PEEK l"53 
P0C2,!f> ■ PEEK < 1357) 
4-328 FOR N = 8 TO 2 > NHH) -:TEP 2 
4330 HTAE PEEK < I2S8 ■> H > + 1 

UTAB PEEK (I2S1 * H> ♦ 1 PRINT • - 
NEXT H 
43*8 RETURN 

3008 ', UTAB 3 PRINT ■ UOUS QIRIGER 
CET ANIHALE ': CHR* (2*2): CHR* (193) 



-AUEC LES TOUCHES : 

CURSEUR ' 

UOUS ETE-; SEUL W 
EETE-C ftPPELEEi .-- 
HOSTILE LR SEUL HA 

STANCE 



PRIN' 

E DEPLACEMEHT Do 

3018 PRINT PRINT 

MILIEU DE 0ROLE3 DE 

KS, SUP UNE PLANETE 

HIERE DE SURUIURE ' 

302O PRINT "EST DE MANGER LA 

EHERCETiaUE RECOUURANT LE SOI 

3830 PRINT FRUIT - CES KOARKS, *l 

CHP* C2*2>: CHR* <195>;" . POHDEHT DE 

S OE'JFS OUI APPARAISSEHT QUELJUE T€ 

MPS APRE3 AUOIR ETE PONDUS ■ 

3048 PRINT : PRIHT - CES OE'JFi SONT M 

MMESTIBLES IL EST DONC POSSIBLE u 'EU 

ITER LEUP ECLOSIOM." 

3050 PRIHT i PRIHT PRINT TAE< 10. 

CHP* C2*2>; CHP* tl93>.- TAE' 48)( 
CHP* (2*2); CHR* ( 193 > 

3030 FOR H = I TO 1000- NEXT N 

FOR H - 10 TO 39 UTAB 22 HTAB N 
PRINT - -; CHP* £*2>; CHR* (195) 
FOR E « I TO 38' IF N ■ 28 THEN 
UTAE 22 HTAB 19 PRINT CHR* C242)l 
CHP* (20*> 
3078 NEXT B.H 
3080 CALL 13000 PETUPH 

10080 REM Mt«M*MttM»lM««t*t**«*r| 
1 1 1 1 l 1 1 I i i i i i I I | i 1 1 1 1 1 1 , i , , | ! , . | 

10010 REM IL EST POSIBLE DE CHANCER 
LE CODE DES TOUCHES OE 
DIRECTION DU JEU 

10020 REM CES CODES POUURHT ETRES 

CHANGES SE TROUUES HUX 

ADRESSES 
10030 REH *430A POUR ALLEZ A GAUCHE 
•4318 " ■ - OROtTE 

100*0 REM 14313 " " EN HAUT 



2990 1 
3000 [ 
3010 f 

3020 f 



!.]•) 



3030 
3060 PRINT 
30 70 
30B0 



1 AVEZ PERDU I 



■VOUL.EZ-VauB REJOUER (0/N) 1 



KEY(O.D.C) 

IF B=77 THEN 710 
3090 IF B-7H THEN 3110 
3100 GOTO 3070 
31 IO END 
3120 REM 

3130 REM SOUS PRO APPICHA8B 
3140 REM 

3150 FOR Al-1 TO LEN(h«) 
3160 FU»-SHG*<[I*.AI . 1 ) 
3170 A2-ASCIB1*) 
3180 CALL HCHAR(V,W,A2) 

l-Wtt 



3200 
3210 

3220 
3230 W-2 
32*0 V-V*l 
5230 GOTO 321 



IF W)32 THEN 3230 
NEXT Al 
HI: I URN 



MIN-OR 



Devenez PDG d'une mine (d'or bien entendu). investissez, 
recrutez et tentez de terminer voire mandat ! 



FX 702 P 



Stephane AVARE 



EXPLICATION ET DESCRIPTION DU PROGRAMME 

Ce programme est compose de 5 parties disposees dans les zones 

memoires de P a P 5 et tourne en OEFM 1. 

* Le programme P represente le programme racine ainsi que la 
gestion des differentes variables : argent, effectif, stock cote de dodu- 
larite... v * 

* Le programme Pi cree aleatoirement la production, le prix des diffe- 
rentes machines, ainsi que la production et le transport total. 

* Le programme P2 afficfie le pnx des differentes machines ainsi que 
I inventairedesautils. 

* Le programme P3 gere I'achat des differentes machines a I'aide de la 
variable FS pouvanl prendre les caracteres : MP. FD, FL, RU.B. et TR. 

* Le programme P4 correspond aux tests principaux. 

Lors du chargement du programme vous risquez de rencontrer cer- 
tains problemesau niveau decertameslignes (25 et 100 en P0.5a9 en 
P4). Ne vous inquietez pas. il suffit de proceder comme suit : 

- Enfrez le maximum de caracteres de la ligne correspondante, 

- Faites : EXE, puis listez la ligne introduce et supprimez tous les'espa- 
ces inutiies comme ceux places apres PRT. INR... et devant le numero 
de ligne ; vous pouvez alors introduire la suite de la ligne (normale- 
ment.) 

NOTICE D'UTILISATION DU PROGRAMME 

Comme son nom ne I'indique peut-etre pas, ce programme est une 
simulation de direction de mine. En effet, vous etes a la tete d'une 
entrepnse detraction de mineral (celui que vous voudrez) et vous 
devez faire le plus de benefices ainsi que survivre a votre mandat de 
15 semames, malgre les nombreuses embuches qui vous seront ten- 
dues par votre diabolique FX 702 P 

Apres avoir lance le programme, I'ordinateur affiche la date (semaine). 
le nombre de mineurs a votre disposition et votre budget de depart 
(vous remarquerez que la monnaie utilisee est le dollar !). Ensuite vous 
verrez le prix actuel des machines que vous pourrez acheter afin 
d'extraire le mineral, ce sont des : 

- Foreuses a tete de diamant, 

- Foreuses au laser, 

- Marteaux piqueurs, 

- RU.B. (Pulverisateur Unimoleculaire Basaltique) : c'est un prototype 

- Tapis roulants afin de transporter le minerai extrait hors de la mine. 
Vous pourrez avoir la liste des outils que vous possedez en repondant a 
la question 'INVENTAIRE" par n'importe qu'elle touche, (sauf "N" qui 
sautera cette etape du programme) ce qui provoquera I'affichage du 
nombre d'outils que vous possedez par categorie et la quantize de 
minerai pouvant etre transports par les tapis roulants. 



Ensuite. votre cote de populartte s'affichera ainsi que votre stock de 

mineraidisponibfeimmediatementetduprixdelatonnedeceminerai 

C'est a partir de ce moment que vous atlez enftn (aire valoir vos droits 

sur cette mine. 

Tout d'abord en indiquant a votre CASIO la quantite de minerai que 

vous desirez vendre (si c'est tout voire stock tapez S) puis en lui 

donnanl I'argent que vous desirez consacre pour la nournture de vos 

devoues mineurs (environ S 100 par personnel. 

Maintenant votre O.P' prefere va mettre a epreuve vos talents de 

PDG. en vous demandant si vous voulez acheter des machines : 

repondez alors par 

-MP pour marteaux piqueurs 

-FD pour foreuse diamant 

- F L pour foreuse laser 

- PUB pour RU.B. 
-TR pour tapis roulant 

- N pour sauter cette etape. 

Ensuite vous devez introduire la quantite de machines a acheter ou a 
vendre (dans ce cas introduire un nombre negatif}. 

'OR- ORDINATEUR PERSONNEL 

Comme les techniques sont ce quelles sont. il vous faut du personnel 
pour utiliser vos machines (il faut compter 1 mineur par marteau 
piqueur, 2 par foreuse diamant, 3 par foreuse laser et 5 par PUB.) c'est 
pour cela que la FX. vous demandele nombre demineurque vous desi- 
rez embaucher (avec un maximum a ne pas depasser) ou licencier, en 
entrant un nombre negatif. 



Differents messages peuvent alors apparaitre : 

a) "TROP DE MACHINES" : vous avez trop de machines par rapport au 
nombre de mineurs. vousdevezdonc revendre des outils'a la moitiede 
leur valeur) afin d'avoir le bon nombre de machine (repondre par un 
nombre negatif a la question : "QUANTITE" ?) 

b) "TRANSPORT TROP FAIBLE" : vous produisez trop de minerai pour 
les tapis roulants.il en resultedoncunblocage des machines. done une 
perte de temps et comme le temps c'est de I'argent. vous perdez de 
I'argent. 

c) "GREVE":cecasesttresrareetresulteleplussouventd'unlicencie- 
ment de personne trop important ; pour les memes raisons que le b) 
vous perdez de I'argent. 

d) "AIDE DE : $..." : I'Etat vous aide dans votre entreprise en vous don- 
nant de I'argent (plus votre cote de popularity sera importante, plus 
I'Etat vous aidera). 

e) "EXPLOSION D'1 RU.B." : comme ce dernier ne des techniques 
modernes, est un prototype, il y a environ 20 % d'explosion. 

f) "EBOULEMENT" : eh oui !!! votre CASIO est diabolique car en plus 
des pertes humaines vou perdez 2 points a votre cote de popularite 

g) "MARCHE ENGORGE" : a vendre trop de minerai voila ce qui arrive ; 
les prix baissent et diminuent votre benefice. 

h) "SALAIRE MINEURS" : il faudrait peut etre pense a payer ceux qui 
font tout le travail ! 

Malgre toutes ces embuches vous ne pouvez perdre que de deux fa- 
cons : 

- RUINE. car vous vous etes mal debrouille. 

- LAPIDE par les mineurs car votre cote de popularite est descendue 
en dessous de 7 (vous n'avez surement pas consacre assez d'argent 
pour I'alimentation des mineurs). 

N.B. La cote de popularite est reglee en fonction de la nournture que 
vous donnerez aux mineurs, de plus vous demarrez le jeu avec 6 mar- 
teaux piqueurs, une foreuse diamant et 1 tapis roulant. 
Si vous desirez augmenter la dureedu jeu. changezla valeur du test de 
la ligne 115. 



LIST 

; 

■--■ 

: : . : 

'" m -■: f3ij= : 

BHKtc 5=3 ' : 
I: : :=; ■■ 
;: -.:;,-. - -- 

IIISURS:"IP,"HI 
METil 

: 

:: SSG I2:S=S«!PI 
T "POPUUWTEi" 

35 "' TOERM!*" 
iVUHP "fiTE a V 

EI'5 5 EM:IFT>S 

« S=S-T:fl=fl+T*V 

:-■ "- • ; . 

fifiilHP "HOWS 

58 IF !!>R TREH 45 

5! OH 

55 IF B/P»188;Z=Z< 

3i!=Z-2:S5BS3 
?! !F Hi THF.U 135 
75 IF ZiI3;IMI*.l 

88 :f zae;ij=!j-.i 

85 ft! NiiFB (8 1 

HEM :■•: 
35 :F RflH#>,2:X=2e 

:S0TC !!5 
168 U=RflHH(P/l,5)t 

iipp.i "ebculeue 
w-rw; 

■T?=p-y:z=z-2 

165 IF T;2e3;FRT "« 
mi EHS0R6EH 

115 Y=¥*lsIF Y415 1 

HEN 25 
128 PRT "VOUS P.VF.Z 

flCHEVE "!"VCI?E 

MHSflT flSEC:!' 

ifcEHO 
135 PRI "LP KIKE SE 

REVOLTE!":EKt 
148 PRI "VOUS ETES 

RUIHE!" 



: 54=H |i 

I 

•.-,::■: 
;■.;-■■:■■:: •: 

:K=»6«8B:L=Hfr 1 

»:NW5 
5 E=ffltfM«fll*RMi 
2*»$*l!3*fl7!«T 



LIST 12 

: :: ' ™*PRIX OES 
IMCHl!KS»">l!l, 

pi!" :■•■--■; 

U 

: :: " : >-' LflSER- 
t"il!,"P.II.B:r! 

3PR7"TE=;; ROUl 
fWT:*":K:lRP 'I 

HVEBTRIRE'.Fiil 
F FJ=XiEI 

4 PRT t;fi! a--' : 
ISIf»!IT:" ; :- : ;^ 
"L5SE?:";K,"f 
,U.8f";R3 

s :: " "TfiPi; : '\. 

SiTi'SIM, "TBflHS 



.IS! S3 

2 ISP TOM !E S 
fitH!HES°,F!:iF 
F1=T : ;RET 

3 MP "QUKHTITE™, 
H:T=H: IF i!«;T= 
S/2 

1 If Fi=TfP";!f T 
*!<fi! 0=8:8=1 

5 IF F*=Wl IF J 
*T<fl!0=l5Q=J 

i IF F»="Fl";IF I 
•T<8iO=2:«=K 



' • " L 



.. . - i, .... ;:: 

":'::;■ 

: . r ii -. : ' 

ilFSMiWE : 

_. . . . .._ = 

-M 

; : : »m«2*ib»3 

•-: ■: : : ;:- " : 
6? BE nraiK! 

-:£;£ •■:•.." " 

i IF :: '-i fi 

M I'M; ■---'-- 
H 

i : : ; i 
wm ...... -. 

il : : :'': 
3 a=fi-N;r w»2 

SB!H=Z«P»58ilH 
•liFPT fllOEM 
lt"!fi 
! IE B3ililF PPKt 
=.2iB3=«3-l:PPl 
'EXPLOSION M 
P.ll.B!" 
18 H=Pt58«: !I ' "i : 
LfliRE V,'\ ■'■:■: 
:fl=fl-H:RET 




LA VALLEE DES SINGES 



Vous etes sur le flanc d'une falaise et vous devez empe- 
cher les singes de vous voler vos tresors. Vous pouvez 
monter (fi), descendre (f3), tirer des fleches (f5) et faire 
tomber des pierres (f7). Chaque pierre use la falaise, le 
tremblement de terre (au moment ou elle touche le sol) 
fait tomber le singe sans le tuer. La couleur des tresors de 
la grotte change : noir : il reste 1 ou 2, rouge 3 a 5, cyan : 6 a 
8... veil :12 a 14. 
Vous gagnez : 1 Points par singe tue 

1 5 Points par singe ecrase 
+ 10 Points supplementaires si il emportait 

un tresor. 

Ne vous decouragez pas si les scores sont faibles au de- 
but ! 

Philippe BANWORTH 

Remarque : 

Temps limite a 5mn 

Couronnes illimites {— 15 points a chaque vol) 

- Ligne 655 : supprimer F(1) - F(1)-1: 

Ligne 706 effacer et remplacer par A2-SC =SC-15:PRINT 

"SC" " :GOT03lDlD 
espace 

caractere de commande d'affichage : l.noir- 
Ajouter 602 IF VAL(T]S)>500 THEN 710 
temps HHMMSS 
ici 5mn 



i-POKE52,2e:P0Ke56-28;V*?l«8:F0R2>VT0V*51J POKE2-PEEK(Z-*25609v NE 
129 FrjPZ=&T0ie3 : PEflDX P0KEV+2/X ■ HEXT 

122 IiHTR0-8.il, 12,28-36. 126'223/24.S4, 239/298* I33» 133,36.36.24, 132,284, 127,23,24 
.46.132 

12=j IlMlfl. 

6.36 

MM I.iMIFi-,.J. ;■,,. --A.. ■:]',. I...'.' ■-,,■ j. /.':-. ;-\,S_\H, Ul . -:l .S,. y.t, n;:j, |-..:j . u, u, ,.-. i ,-■,■.,. n. il .. 

133 DHm8.2e. l27<2SS>12S,62,<2,4,292,29S,282,299,292,i 98,292,299 

I*,'. l.ii.TMiw4,fc[j,.:/W4.U,-H»:,.(At, /'A., ",■,.. ,-./j,. ,■'./.,.;■■■.■,.. ',',. .'■,',...■.■, 
1 90 P0KE36869. 233 fCINI *& FOhz-ydAWTO lS44'j PQKEZ. 8 HEXT 




2*2 Pi>-E:-?4j3.4 P0KEr^8.12-FRIH7"i ■"; 

I?''; F0P2=iTO15 :PRIHT"«_LLJ1 j|_a «-",HEXT 

210 F0P.Z=1T02 PfilHT-*-m «XL"J : N£XT 

213 FPINT-aLLLLILLLLLLLLLLLLLLLa-LL" 

217 POKK877,ll:FOR2-384«TO38?7S8TEP22:POKEZ,6!HEXT'F<l)-lS:K<6>^tTI»-"eeee80" 

225 r>7882:D"7724 ! fl2-3:J<l>-22:j(2>«-i;,J<3>«l:J<4>=-22 JC3)=1 F0P.Z=«lTO5:KtZ>«Z N 



: IFB=39THENCl=C-22-00T034B 



EXT 

300 OHftlOOTM4'.jy.- , :.iJO B=F-EEK< Iff" 

?20 IFB=47THEHCl=C+22 ODT0'r--ifj 

325 IFB=64THEN608 

330 IF3=63THEN338 

335 IFB=55THEH435 

340 IFPEEK(C1-1J=32THEH686 

?45 Fn!.'Er,3-'.P0KEC1.7 C=r.l - GOTO608 

330 Rl = l :E=C+22 POKED, 32 = Ii=D+l Z=fEEK'.K' lF;>320P2=7THENB=rj»18 

337 F0KE3£y77.2yt' FrwEJ6877,0: IFD=8013THEH710 

\m El=E+22 : IFE1-8080THEH4S0 

109 PCiKEE,32;P0KEE1.5'E=El -OOTO600 

S50 Z=PEEK(E1> :POKEE.32:X = F0FEEi,;-> P0KE36S77. 128 

455 IFZ=32THEHX»1 

460 IFZ=20RZ=3THEHfl2=4-3C=SC+15-P0KEEl. 0-02=3^ IFZ=3THEHFC2)*F<2)+1 SC-SC»10V"0 

465 PP.IHT"-BT3C F0RZ=1T015. F0RT^38TO39:POKE36863,T'F0RV-1 1015 NEXT fJE.xr NEXT Puk 

E36377.0 

470 fll=0=IFi<=lTHEH476 

472 P0KEEI.32- IFF<2>>0THEHPOKEE1,I1 

473 IFF<3)>0THEHPnn.E8034,ll 

474 GOTO680 

476 Z"<H-20>/22:iFZOIHT(Z>THEN472 

473 IFH=7726TH£H472 

488 FORZ=HTO80343TEP22 ■ POKEZ-22, 32 : P0KEZ.6 

432 F0P»1TO100-HEXI HEXT ■ H=3994 IFF' . 3>>3THENH=8072 

433 GOT0472 

435 0=C+l.Hl=2-PtJKE3b>i: 1 >..22*s PL'KE36876,0 

560 F0RV=lTO2:Gl=G+l.Z=PEEK10i; IFZO32THEH520 

510 P0KEG.32:P0KEG1.8:G«G1 HEXT G0T06M 

520 FORV=lTOrriEXT:fll=0 POKE G, 32 1FZ-12THEN600 

523 Z=Gl-22 SC-SC+10 

530 X=2*22 IFXJ8100THEM540 

535 P0KEZ.52 P0KEX.6 Z=\\ F0PV = 1 TC"100 IIE:;M.:-UT0538 

540 POKEJear?. 123 PDI.EZ.O FOF:V=1Tu750 HEXT Pt2 = 3 FOKE36877.0 

545 POKEZ,32iTF2-8094THEHFO)-F<3)+l P0XE2,11 :SOSC+18 

547 PRIHT"m"5C GOTO600 

550 H=INT(PHD<.3j»11j*76S7 R2-0- 1 = 1 Jl =22 12=8 V. 1-1 

565 IFV«1THEN:F0RZ»2T04 K(Z)-K<Z+1) NEXT T0R2-2T04 1<.Z>-}<Z*\> HEXTV-0 

600 ONR2GOTO650, 688,550 

605 Hl-H+Jl Z=PEEK(H1) 1F2O32THEN620 

610 P0KEH.32 -F0KEH1 ,K1 H=H1 GOTO300 

620 1FZ=8THEN610 

621 IFZ=12THENI=I*1 >1*JCI) K1«K< I ) =H1»H:00T0618 

■ ■,:■ \y }<■■■■.-. ,^>ihen;v> 

625 IF2=11THENR2=1 

630 GOTG610 

650 H2»2'IFI2»ITHEIIU=3 G'.T0665 

f.53 H-H^,kwiU'!:.Ni - r :-rf-. ,: ■ l 1.1=. 

635 IFH-307;"THENI- '!■ = !-' 1 >-\ U-1-P0KEH.3 

657 IFH-8034THEMF(3>-FO)-1 U-3 

660 P0KE38797,e F0RZ»lT0iee8 NEXT 12=1 IF< F( I "F<2> J-0HND;< 3>-ITHENV-l 

662 Z=INT<F(1)/3J+1 IFZolTHEN2«0 

663 P0KE39737.Z 

665 1 = 1 + 1 J1*J(I I Kl-KC] ■ BOTWeS 
630 IFFrlJ.'jiJTHtUFCPKEH-JI .11 

6:31 pa-e 00T06C! 



'"'I 1 1 

705 PC 
786 IF 



nPj=,V6' 



088828TEP22 POI E36fl76-<8992-Z>/9*127 POKEZ-22.32 

EX1 NEX1 P0KE7722,32 

ft2-3 GOTO3O0 

BOtBCOftE "SC PiJtE138.0 



DONJON 



Vous etes chevalier en quete dune coupe enchantee qui 
vous apportera force et richesse. Vous evoluez dans un 
donjon de 10 x 10 cases. Ce donjon est infeste de scor- 
pions, serpents etautresscarabesmalfaisants; attention: 
ne tombez pas dans un trou. ou entre les griffes du mino- 
taure. 

La coupe recherchee est enfermee dans I'undestroiscof- 
fres perdus dans le donjon, un coffre contient la coupe, 
I'autre contient des serpents et le troisieme est piege. 
Divers objets repartis dans le donjon vous aideront dans 

Z CLSlCLEAR S q 

4 D IMP"/. (9. 9) :DIMM»(I3) Bl 

5 K=0:V=0:ft=O;B=0 82 
b nt(l>-CMR»(234J.CHR«(23S):M«(2>=" "-CHR» (233> 83 
7 M« ( 3 ) -CHR» (239) -CHR» ( 240 1 : M* 1 4 > -" t " : B4 

M»(AI-CHR* 1224) *CMR* 1223) 95 

B n«(7)-fM(6) :N»(9)=N*<6> : M« (9) =CMR» (2261 *CHR« (227) HA 

9 T1»U0>=.CHR»(229> iM*(] I > *CHR« <230> B7 

10 M*(12>-" ••*CMR»(2;i):M»<i3 ) ... •■* C HR»(22B) Sa 

11 0»ll l=CHRK2::9>:a«(2>-"":ai<3>-"":D»14)-"" 69 

15 FONT* ( 224 )»■' 124, 255, 220, 0.22O, 244, 24B,2S5' i 90 

16 FaNT»<225). "249,2=5, 236. 0.236, 198. 124, 235" 91 

17 F0NT«(2261-"0. 0,0. 255, 255. 244. 243,253" 92 

18 F0NT«(227>="O.0.O.253,255, IBB, 124.255" 93 

19 F0lMT«(22B)="0,O, 192,255,212.0,0.0" 94 

20 F0MT«(?29)-"0, 24, 116. 144,136.6,4.4" 95 

21 F0NT«<23O>="O,224,192.160, 16, 9.4,0" 98 

22 FONT*(231>-"120.4a, 120,235. 132. 132,253. 120" It' 
2J FONT* < 232) -"O. 132,204,233,120,48,46, 1-0" 

24 FONT»(233) -■•32,60. 56,24, 4B, 96. )36, 112" 

25 FONT* (234> -"0.0.0, 49. 12.20, 12,48" 

26 FONT* 1235) -"96, 176.24.36,240.224, 192.32 

27 FONT* ( 236) -"O. 120.96, 120,48. 120.220,220' 



— -,220" 

2B FONT* (237)- "196, 255, 255, 72, 72. 72, 72. 10B" 

29 F0NT*<23B)-"4B,48,255.23S.4B.48,4a.4B" 

30 F0NT«(239)--2B,0,76, 124,124,76,0.28" 

31 FONT* (240) ="176, 164,232. 184. 184.232, 164.176" 
35 Z«INT!20-ftNDIO> > + l 

38 F0RI-!TO3:F0RJ=lT03 

39 G0SUB4022: PV. ( C I . C2 ) - 1 : NEXT J : NE X T I 

40 F0RI = lTO5:G0SUB4O22;R7.{Cl,C2)=4:NE>;TI 
4 1 F0RI=6T0a:G0SU64022:Py.(Cl,C2) = I:NEXTI 

42 FORI = 11T013:GOSUB4. / 22:P7.(C1.C2)-1:NEXT1 

43 GQSUB4022:A=C1:B-C2 

44 LOCflTE10,3:FRlNT5TRING*!8." " ) ! 

45 IFA-99THEN50ELSEGOSUEH00O 

50 LINE (9. 24) -to. 31 1 : L INF.- (0. 0> : L INE- (23, 7) 
31 LINE- (23. 15): LINE- (27. 131: LINE 131. 151-135. 15) • 
LINE-<3S,7J 

52 LINE- (39,0) :LINE- (59.31): LINE- (49.24) 

53 LINEI23. IS) - ( 15. 20) : L INE (35, 15>-(43,20) 
34 LINE(23.7)-(35,7> 

55 IF^^ijTMENGnSU£i4O04:G0SUB40O5:G0T037 

56 B0SUB4O02: I F 1. =9THENG0SUB4007ELSEG0SUB4005 

57 IFY=.OTHENG0SUB4O01ELSEG0SUB40O0 
5B IFY=9THENGOSUB400B 

59 G0T070 

60 IFE-1THENG0SUB100S 

61 IFft=XfiNDB=YTHEMi2ELSE110 

62 L0CftTE6,2:PRINTCHR*(236) ; : LOCATE&. 3:PRINTCMR* (237) J 

63 D*-"LE MINAUTORE VOUS ATTAOUE... " : GDSUB4023) GOSUB3O00 

64 IFO*< >"2"THENI34 

65 L0CATE4.3:PRINT0*(2) i 

66 LOCATE 16. 1:PR1NT0*(1> i O* (2) ;0» (3) I 0* 1 4) i 

67 IF0*(2)=" M THEN132 

69 0*(2!-" ":G0SUB4020:P"/.(C1,C2)-11 

69 A-99:G0T0130 

70 IFP7. (X,Y)=4TH£NG0SUB4009:G0TG72 

71 LOCA7E2.3:PRINTM*(Py.(X, Y) ) | 

72 LOCATE 1O.0; PRINT "Sal 1 e: " 1 CMR* ( Y+65) ;'V'iSTR«(X) 
7^ LOCATE lO, 1: PRINT "Ob jet: " ; O* ( I ) | O* 12) ; 0* (3) ; O* (4) ; 
74 L0CATEI1.2:PRINT"-Radar-"s 

73 F0RI-1T04 

76 Z«INT(20»RND(0) >«-l 

77 T(I)-INT(RND!2)«4>.1 
7B IFI-1TMENB2 

79 F0RJ=1T0I-1 



votre quete : serum guerisseur des morsures et piqures, 
grappin pour ressortir des trous, fleche pour tirer sur le 
minotaure et la clef pour ouvrir !es coffres. 
Vous partez de la salle reperee A-0 sur le plan et vous 
possedez deja le grappin. Apres avoir utilise un objet, il 
disparait et reapparaft dans une autre piece. Une salle ne 
contient qu'un objet ou un monstre a la fois. Tous les 
monstres sont immobiles, sauf le minotaure qui se depla- 
cedurant la partie. 

Ivan HARY 

Mode d'emploi : 

Uordinateur dessine la salle et ce qu'elle contient. 

L'ordinateur affiche le numero de la salle {lettre + chiffre) exemple : 

B-5. Ainsi que les objets qui sont en votre possession. 

L'ordinateur indique ensuite les objets contenus dans les salles adja- 

centes et les mscrits sous le mot RADAR (objets et monstres sont 

IFT(I)-T(J)THEN76 

NEXT J 

NEXTI 

J =9 

FaRI = lT04:aNT( 1 1 G0T085.67. B9, 91 

IFX-9THEN93£L5EIFX'.9ANDPV.(X*1.YI-0THEN93ELSEJ-J*2 

L0CATEJ.3:PRINTM*(P-/.(X*1 , VI ) ; :G0T093 

IFY=9THEN93ELSEIFY:9ANDPy.(X,Y*l)-OTHEN93ELSEJ-J-2 

L0CATEJ,3:PRINTM*(P-/.(X,Y*1) ) ! : G0T093 

IFX=0TMEN93ELSEIFX>0flNDP7.(X-!,Y)«0THEN93ELSEJ=J*2 

L0CATEJ,3:PRINTM*(P7.<X-1,Y) )! :G0TD93 

IFY = 0THEM93ELSEIFV;.OANDPX.U.V-ll-OTHEN93ELSEJ=J*2 

LaCATEJ,3:PRINTM*(R7. (X, Y-l> >; 

NEXTI 

8EEP30, Si BEEP40, 2: BEEP53, 4 

G0TD60 

I F£- 1 THENGOSuei 0O5 
> QNP7. (X.Y)*1G0T01B0, 112, 1 1 4. 1 16, 1 18, 101 , 140, 140, 140. 190, 

165, 167, 169, 17! 
! D*="LE SCORPION VDUS PIOUE... " 
■GQT0120 



D*-"LE 



T VDUS MORD. , 



en 



VDUS ETES MORT! 



5 R*="3":G0T0120 

6 D*="LE SCARABE VOUS PIOUE. 

7 R»="3":G0T0I20 
B D*="VOUS TOMBEZ DANS UN TRI 
9 R*«"I" 

GOSUB4025:GOSUB300.0 

1 IFR*O0*THEN134 

4 L0CATE4,3:PRINT0*(VAL<R*) ) 

5 L0CATE15*VAL(R«) . 1:PRINT" ' 

6 IFO*(VAL(R*))«"" THEN 132 

7 0»(VAL(R*1 )-" ":GOSUB4020:P7.(Cl,C2)=VAL(R*)+9 

D*="VOUS ETES SAUVE " : G0SUB4025: G0T0180 

2 D*="V0US N'AVEZ PAS GET OBJET... " 

3 G0SUB4025 

4 D*="C-EST ICI DUE PREND FIN VOTRE ( 

5 GDSUB4025:G0SUB1 100 

b LOCATEO,0:PRINT"VOULEZ-VOUS REJOUER""' [ 
7 0*=INKEY«: IF 0*=""THEN137 
3 1P0*="0"THEN3 ELSE CLSiEND 
:• D* = "V0US AVEZ TROUVE UN COFFRE... " 

1 G0SUB4O2S: G0SUB3000 

2 IFO*="R"THEN160 
J IF0*-"4"THEN146 

1 D»="VOTRE ACTION N'A AUCUN EFFET " 

i GOSUB4025:GOT0180 

b IF0*(4)=""THEND*="V0US N'AVEZ PAS LA CLEF.. 

7 L0CATE4,3:RRINT0*(4) ; :D*(4)'" ■ 

i LOCATE 16, 1: PR INTO* I 1 ! i O* (2) ; 0* (3) ; D* (4) ; 

1 GOSU64020:PX(C1.C2)-13 

> D*="VOUS DUVREZ LE CGFFRE... ":G0SUB4023 
1 LDCATE2,3:PR!NTCHR*(226)+r:MR*(227) ! 

I IFP7.(X,Y)':>6THEN155 

! L0CATE4.2:PRINTCHR*(233H 

\ PZ(X,Y)=1:G0TD114 

> IFPV.(X,Y)=BTHEN160 

. L0CATE2,3:PRINr" ": : FORI -1 TD6: CI RCLE ( IB. 23) , I: BEEP I. I: NEXT I 

' D*="LE COFFRE ETAIT PIEGE ":D0SUB4025 

1 GOTO 134 

I L0CATE4,2:PRINTCHR*(232) ; 

D*="V0US AVEZ TROUVE LA COUPE ENCHANTEE 1 ■ 
1 G0SUB4025 
; F0RI=5T09STEP2:CIRCLE(27,20> . I : BEEPI . 3: NEXTI 

F0RI-lT02000:NEXTr:CLS:GDT0136 
i D*="VOUS TROUVEZ UN GRAPPIN. " 
. 0*(1)=CHR*(229) :G0T0175 



dessmes, un trou est symbolise par la lettre t) 

Un signal sonore retentil lorsqu'il a "ermine 

Si rien ne s'esl aHiche au signal sonore c'est qu'il n'y a pas d'objets ou 

monstres dans les cases voisines. 

Sileminotauresetrouvedansunesalleadjacentealavotre.un^ 

retentie. suivie d'un message 

DlREC : A cetle question, tapez la direction que vous voulez prendre 

(fleches pour se deplacer et louche au centre des tleches pour rester 

sur place). 



ACTION 

un objet. 

Taper : 1 

2 



ordinateur affiche ceci quand vous etes amene a utiliser 



■ pour utiliser le grappin 
- pour utiliser la fleche 

■ pour utiliser la fiole de serum 
4 - pour utiliser la clef 

R - pour ne rien taire 
Un conseil, ne vous trompez pas de touches et aidez vousd'un plan sur 
papier. 
Ah ! aventure quand tu nous tiens ! ! 



167 D*="VOUS TROUVEZ UNE FLECHE. " 
16B 0*(2)-CHR»(230):GOT0175 

169 D*="VDUS TROUVEZ LA FIOLE. " 

170 0*(3J=CHR*(231 ) :G0TOt73 

171 D*«"VDUS TROUVEZ LA CLEF. " 

172 0*14I=CHR*(228) 

173 G0SUB4or5:L0CATE1.3:PRINT" "i 

176 L0CATE16. 1 :PR INTO* I 1 ) ! 0* 12) 1 0* (3) ; 0* 

177 BEEP11,2:P'/.!X, Y) =0 

1BO LDCATEI 1 , 2:PRINT"-Di rec-"l 
161 I=STRIGU) : IF I =-1 THEN IBB 

182 J-STICK(O) : IFJ-OTHEN181 

183 IFJ=1THENIFY-1 /-1THENY-Y-1:GOT018B 
194 IFJ-3THENIFX*lvlOTHENX-X-H:GOT01B9 
IBS IFJ-3THENIFY*K10THENY = Y*1:GOT0188 

IFJ-7TH£NIFX-1>-1THEN>-X-1:GOT01B8 



197 I 



01B1 



&# 



188 LOCATEl! ,: 
1B9 FORI»OT03l 
190 G0T044 

1000 E=0: IFA=XANDB=Y-1THENE=1 

1001 IFA-XANDB=Y-1THENE-1 

1002 IFB=YANDA=X-1THENE=1 

1003 IFB-YANDA"X*1THENE-1 

1004 RETURN 

1005 F0RI=1T0I0:BEEP0,3:BE£Pj0,2:NEXTI 

1006 D»- , 'ATTENTION' LE MINAUTDRE EST DANS LES PARAGES' 
608UB402S 



:G0SUB4025:G0T01£ 



1007 
1008 
1009 
1010 



1 106 
1196 
3000 
30OI 
3002 
3003 
i 4000 
4001 



I-INT(5»RND(Z> 1*1 
ON I GOTO 1 009, 1010, 1011, 1012 
IFA-1>-1THENA-A-1:G0T01013 
IFA-K10THENA-A-HSG0TO1O13 
IFB-1>-1THENB-B-1:G0T01013 
IFB*K10THENB-B-H 
E=>0: RETURN 
CLS:L0CATE10. 1 
PRINTCHR*(23B) : LINE (39, 14!-(6B, 14) 
LINE- (57, 25) : L INE- (48, 25) : LINE- (59, 14 
L INE (48, 25) -(48, 28): LINE- (37, 2H1 :L1NE 
INE (57,21 



%-& 



FORI-60T0 

RETURN 

IFJ=7TH£N 

LOCATEl 1, 

0*- , " , :D»- 

LOCATEl 1, 

RETURN 

NE(27. I' 

N£(27, I! 

NEI9.24 

NE-19, 2> 



5TEP-: 



BEEPI, l:NEX' 



FX-1>-1THENX-X-1 
!:PRINT"-Actlon-"j 
NKEY*: IFQ*-""THEN3O0 
INTSTRING*(B. 



-(2 



,9) :LINE-(31, 



-(31, 15):RETURN 
(9,10) :LINE-(15, 10 
: RETURN 
(13.201 :RETURN 

-INE-(43, 



(31, 15) (RETURN 



NE- (49, 20) : RETURN 



I. I NE - 



NE (49, 24) - 143, 20) i RETURN 
4008 LINE(0,31)-(39,31):RETURN 

NE (25, 21) -(31, 211 : L INE- [33. 23) : LINE- (21,: 
4010 LINE- (25,21): LINE- (25,251 : LINE (31 .21 ) - (31 , : 

4020 Ct"INT(10»RND(Z) ) :C2-INT ( 10"RND ( Z ) I 

4021 IFPV.1C1 .C21O0THEN4020ELSERETURN 

4022 C1-INT(10»RND(Z) ) : C2-INT ( 10»RND ( Z ) ) 

4023 IFPV. (CI . C2) < >O0RC 1 'C2-0THEN4022ELSERETURN 

4025 L0CATE10,2:PRINT"- -"! 

4026 FORI°lTaLEN(C*l :L0CATE1 1,2 

4027 PRINTMIDKD*. I , B) : IFI-I THENFDRJ^ 1 T0200: NEX" 

4028 F0RJ-IT025:NEXTJ:NEXT I 

4029 L0CATE10,2:PR1NTSTRING»(I0. " ")i:RETURN 



SIMULATION D'ATTERRISSAGE 



Ce programme fonctionnant sur PC1500simule I'atterris- 
sage d'un avion avec uniquement quatre parametres 
dans un but de rapidite : le carburant, I'altitude, lavitesse 
et la position de I'avion par rapport a la piste. 

Olivier BOURNAC 



Latterrissage est reussi si I'altitude est comprise entre et 10 unites, si 
la vitesse de I'avion est comprise entre60et 1 00 unites, si I'avion se pre- 
sente correctement par rapport a la piste, et si il reste toujours du car- 
burant. 

L'avion s'ecrase si il n'y a plus de carburant, si lavitesse de I'avion est in- 
ferieure a 60 unites ou superieure a 2000 unites ou si I'altitude de ce 
dernier est negative. 

FONCTIONNEMENTDU PROGRAMME . 

Au debut de i'execution du programme, I'ordinateurdemande les diffe- 
rents parametres avec lesquels vous altez devoir atterrir;seulle carbu- 
rant est limite a 800 unites. Chaque fois que I'avion utilise 40 unites de 
carburant. une colonne de droite representant la jauge de carburant 
s'efface. Le graphisme de la droite de I'ecran represente I'avion dans 
ses differentes positions par rapport au sol, 

COMMANDES DE UAVION 

8 touches sont disponibles pour dinger I'avion ; 

- Le "U" : cette touche destabilise I'avion sur ia gauche, la vitesse de 
I'avion augmenle au fur et a mesure que I'altitude diminue, 

- LeT:memeeffet que la touche "LTmaiselledostabilise I'avion sur la 
droite. 

- Le "H" : cette touche destabilise I'avion sur la gauche. 

- Le "K" : cette touche destabilise I'avion sur la droite. 

- Le "N" : cette touche destabilise I'avion sur la gauche, la vilesse dimi- 
nue au tur et a mesure que I'altitude augmente 

- Le "M" : mome cffet que la touche "N" mais ello destabilise I'avion sur 
la droite 

- LA FLECHE TOURNEE VERS LE BAS ; cette touche diminue lavitesse 
dc l';ivion mnoi qui; son .iltiludi; 

- LA FLECHE TOURNEE VERS LE HAUT : cette touche augmente la vi- 
t'i'.v: fj(! I'.ivion nur,i riiji- -.on allitudij 



Le carburant diminue plus ou moins vite selon ces touches qui repre- 
sented par leurs emplacement le manche a balai d'un avion. 

Ce programme tourne sur un PC 1500 sans aucune extension. 



A500 





BRAVO ! 
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■fl"iCl.S :CLEAR 


CPRJMT "\C3E?i 


»C-J0-'X*X*li 


REUSSI 7 


91 IP 7, >6, 30; 




:UOJI 0! 


3E]C":r,CURS0R 


GOTO 130 


250: IF «<--J0JF X^S 


91 \>- 1,93, 110: 




^tSfORE :X=5 


194:CPR]NT "08 
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BEEP 1, 1 17, 80: 
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lC3f: CCURSOR 
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NEXT 1 
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i07-'CPRJNT 12? 


y«3^?0:O-=O-UV? 
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NEXT ] 
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270: CCURSOR |09: 
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DEPART 
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SB 


(HPur "CARBURA 


!ft-fl-U^28iX-X- 


??&: !F C(^M-40LEt 


■•" 0: ■ -MR* 


J2BI0ATR -88001088 
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DEUX SUPER-CONCOURS PERMANENTS 

10 000 francs deprixau MEILLEUR LOGICIELdu MOISet un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rien de bien original dans cette 
formula, pourtant nous es- 
sayons de faire quelque chose 
de different : nous organisons 
un concours permanent tous 
les mois et tous les trimestres ! 
Et avec des prix dignes des pro- 
grammes que vous allez nous 
envoyer! 

De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
suelle. 

Pas de Jury, pas de decision ar- 
bitrage, HEBDOG1CIEL n'inter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGIN AUXet FRANC AIS. Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cialistes vous dira comment 
I'ameliorer pour pou voir nous le 
proposer a nouveau. 



Pour participer, il vous suffit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que toutes les ex- 
plications necessaires a I'utili- 
sation de ce programme. 
Vous pouvez obtenir gratuite- 
ment des bons de participation 
en ecrivant au Journal. 
Bonne chance! 



ART. 1 HEBDOGICIEL organise 
de lacon mensuelle et trimes- 
tnelle un concours dole de pnx 
recompensant le meilleur logi- 
ciel du mois et du trimestre 
ART. 2 : Ce concours est ouvert a 
loul auteur de logiciel quelque 
soil le materiel sur lequel il est 
realise. L'envoi d'un logiciel en 
K7 ou disquette accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuiternent sur de- 



mande par la redaction de notre 
journal constitue I'acte de can- 
didature 

ART. 3 La redaction d'HEBDO- 
G1CIEL se reserve le droit de 
selectionner sur la base de la 
qualiteet de I'originalite leslogi- 
ciels qui sont publies dans le 
journal 

ART. 4 Ce sont les lecteurs qui. 
par leur vote, determinent les 
meilleurs togiciels mensuel el 
tnmestriel 

ART 5: Le prix alloue pour le 
concours mensuel sera remis au 
plus lard un mois apres la clo- 
ture du concours mensuel 
ART. 6: Le prix alloue pour le 
concours tnmestriel sera remis 
au plus tardun mois apres la clo- 
ture du concours trimestriel. 
ART, ?■ Le present reglement a 
ete depose chez Maltre Jauna- 
tre. 1 . rue des Halles 75001 Paris. 
ART. 8 : HEBDOGICIEL se reser- 



ve le droit d'interrompre a lout 
moment le present concours en 
en avisant les lecteurs un mois 
avant. 

ART 9: La participation au con- 
cours enlralne ('acceptation par 
ies concurrents du present re- 
glement 

HEBDOGICIEL: 27. rue du Gal 

FOY - 75008 PARIS 

Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordinateur. 

Ainsi, pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 



BON DE PARTICIPATION 



Nom : 

Prenom ; 

Age : Profession : 

Adresse : 

N" telephone : 

Nom du programme : 

Nom du materiel utilise : 

declare etre I'auteur de ce programme qui n'est ni une imitation ni une 
copie d'un programme existant. Ce programme reste ma propnete et 
j'autorise HEBDOGICIEL a le publier La remuneration pour les pages 
publiees sera de 1000 francs par page (un programme n'occupant pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signature obligatoire : 

(signature des parents pour les mineurs). 

Le programme doit etre expedie sur support magnetique (cassette ou 
disquette) accompagne d'un descri p tif detaille du materiel utilise, 
rj'une notice d'utilisation du prog ramme Les supports des program- 
mes publies sont conserves , n'oubliez done pas d'en faire une copie. 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHAITENT FAIRE 
PUBLIER UN PROGRAMME : 

• Envoyez vos supports, mode 
d'emploi, listings et bon de parti- 
cipation dans une meme enve- 
loppe. 

Vous pouvez nous envoyer plu- 
sieurs programmes sur un meme 
support en I'indiquant sur votre 
Bon de Participation. 

• N'oubliez pas et ceci est tres 
important, d'mscrire sur vos sup- 
ports votre nom, le nom du pro- 
gramme et le materiel utilise. 
Nolez dans les premieres lignes 
de votre programme, sous forme 
de REM, votre nom. le nom du pro- 
gramme etle materiel auquelil est 



destine. Nous pourrons ainsi re- 
perer facilement les listings, une 
fois sortis de rimprimante. 

• Dupliquez plusieurs fois sur la 
cassette et a des niveaux d'enre- 
gistrement differents votre pro- 
gramme. Nous aurons plus de 
chance d'arriver a le charger si les 
magnetophones ne sont pas tout 
a fait compatibles. 

• En ce qui concerne les bons de 
participation, mettez votre adres- 
se com plete et votre numero de 
telephone (si vous en avez un). 

• Pour tout envoi tel que "petites 
annonces", "abonnement" et 
"programmes" specifiez sur vos 
enveloppes I'objet de votre cour- 
rier. 



Ne nous envoyez plus d'envelop- 
pes timbrees. mettez simplement 
les timbres joints a votre envoi. 

• Expliquez les particularites de 
votre ordinateur et le moyen 
d'adapter votre programme a 
d'autres ordinateurs. 

• Vu le nombre important de pro- 
grammes similaires que nous re- 
cevons, evitez de nous envoyez 
les jeux suivants : BIORYTHMES. 
MASTERMIND. PENDU, TOUR DE 
HANOI, CALENDRIER. BATAILLE 
NAVALE. POKER. JACKPOT. 
BOWLING, BLACK JACK. LABY- 
RINTHE, MEMORY SIMON. 421. 
OTHELLO. SOLITAIRE, LOTO. 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOIS1R DANS 
SON RAYON LIBRA1RIE (EDI- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 



DDI OFFRE CINO CASSETTES 
DATA OR VIERGES AU MEIL- 
LEUR PROGRAMME DE CHA- 
QUE CATEGORIE. 



Le Club PPC-T offre au meilleur 
logiciel en langage FORTH sur 
HEWLETT-PACKARD une adhe- 
sion gratuite a son club. 



Les editions du CAGIRE offrent 
au meilleur logiciel du mois sur 
HP 41, leur livre"autour de la bou- 
cle" de Janick TAILLANDIER. 



SOUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEOUE. 



DURIEZ CALCUL OFFRE AU 
MEILLEUR LOGICIEL DU TRI- 
MESTRE UNE MACHINE A 
ECRIRE BROTHER EP.22, 
2 KO DE MEMOIRE, INTERFA- 
CES RS . 232 . C. 



LOGISTICK OFFRE UNE GAM- 
ME COMPLETE DE SES CAS- 
SETTES DE JEUX POUR LE 
MEILLEUR LOGICIEL DU MOIS 
FX 702 P ET POUR LE MEILLEUR 
LOGICIEL PC 1500. 
IL OFFRE EGALEMENT UN 
"CALC" ET UN "GRAPHE" POUR 
LE MEILLEUR PROGRAMME 
CANON. 



CONCOURS "GEORGES LECLERE" 



Le programme de Georges LE- 
CLERE dans sa conception ac- 
tuelle. contient cinq parties diffe- 
rentes. qui sont toutes axees sur 
la manipulation de lettres de I'al- 
phabet parl'rntermediairedu cla- 
vier de 1'ordinateur. 
Les deux premiers jeux sont iden- 
tiques (seul I'adversaire change : 
ordinateur ou autre joueur) et 
constituent une ebauche de Po- 
ker, ou les cartes sont remplacees 
par les lettres de I'alphabet. Cha- 
que joueur. a tour de role, appuie 
sur une lettre qui agira comme le 
levier d'un JACK POT : la touche 
utilisee genere une lettre sur 
I'ecran qui va se ranger dans le 
camp du joueur. 
C'est done un jeu de hasard, ou 



I'objectif (non defini dans le pro- 
gramme) serait d'obtenir le plus 
rapidement possible, une seriede 
5 lettres rangees par ordre alpha- 
betique (c'est un exemple). 
La troisieme partie est une de- 
monstration automatique ou 
"TIC (le premier joueur) joue ses 
lettres dans I'ordre alphabetique 
et "TOC (le deuxieme joueur) 
joue d'une facon aleatoire. 
La quatrieme partie est un jeu 
destine a I'apprentissage de I'al- 
phabet. Dans la version actuelle 
du programme, le jeu est concu 
pour 1 joueur qui joue contre I'or- 
dinateur. Chacun des deux 
joueurs possede un camp consti- 
tue d'une ligne contenant les let- 
tres de I'alphabet et d'une ligne 



alphabet 
joueur : 

CAMP 
JOUEUR 1 
CAMP 

JOUEUR 2 
ALPHABET 
JOUEUR 2 
DU ECRAN DE JEU 



ABCDEFGH1 JKLMNOPORSTUVWXVZ 



ABCDEFGHIJ^LMNQPORSTUVW*' 



ABCOEFGH-JFLMNOPORSTUVWXYZ 



ALPHABET 

JOUEUR 1 

CAMP 

JOUEUR 1 

CAMP 

JOUEUR 2 

ALPHABET 

JOUEUR 2 

L'DRDINATEUR JOUE (D).ET DEMANDS I 



ABC EFGHIJI-LMNnPORSrUVWXYZ 



initialement vtergequicontiendra 
les reponses correctes pour cha- 
que joueur (cf D1), 
Lordinateur commence la partie 
en generant une lettre qui vientse 
placer dans son camp. II fait en- 
suite clignoter une des lettres du 
joueur qui doit alors appuyer sur 
la touche correspondante du cla- 
vier. Si la reponse du joueur est 
correcte, la lettre est rangee dans 
le camp du joueur. Si la reponse 
est incorrecte, la lettre reste a sa 
place et I'ordinateur reprend la 
main. 

La cinquieme partie est identique 
a la quatrieme. mais avec utilisa- 
tion des manettes de jeu. 
Le programme de Georges LE- 
CLERE est en fatt une ebauche du 



jeu de lettre. 

Lobjectitdu concours est de reali- 
ser un programme complet (de- 
monstration automatique, interet 
du jeu, etc.) axe sur les lettres et/ 
ou les caracteres speciaux (1, :. 
etc.). La manipulation du clavier 
etant la base de ce type dejeu, un 
jeu ou un systeme permettant 
I'apprentissage du clavier devra 
etre inclus dans le programme. 
Comme vous pouvez leconstater, 
le plus dur reste a faire. 
Remarque : Le listing est com- 
mente, afin de permettre aux per- 
sonnes possedant un ordinateur 
autre que I'APPLE de I'adapter fa- 
cilement. 



AFCDF.FGH JI.LMNOF-TiRH*! 



ALPHABET 

JOUEUR 1 

CAMP 

JOUEUR 1 

CAMP 

JOUEUR 2 

ALPHABET 

JOUEUR 2 

REPONSE CORRECTE DU JOUEUF. 1 



ABC EFGHIJI LMNOPORSTI 



AfjCDFF GUI. 



ALPHABET 
JOUEUR 1 
CAMP 
JOUEUR I 
CAMP 
JOUEUR 2 

ALPHABET 
JOUEUR 2 
REPONSE INCORRCCTfi '.E 



AUriULI GHIJI LMNGPCRGTU 



REGLEMENT 

Article 1 

HEBDOGICIEL organise un con- 
cours du 22 Mars au 2 Mai dote de 
prix recompensant le meilleur lo- 
giciel s'inspirant d'une idee de 
Georges LECLERE et dont le nom 
est "POKER-ALPHABEr. 
Article 2 

Ce concours est ouvert a tout au- 
teurdelogicielquelquesoitle ma- 
teriel sur lequel il est realise. L'en- 
voi d'un logiciel sur K7 ou disquet- 
te accompagne du bon de partici- 
pation "Concours Georges 
LECLERE" decoupe dans I'heb- 
domadaire constitue I'acte de 
candidature. 
Article 3 

La redaction d'HEBDOGICIEL se 
reserve le droit de selectionner 
sur la base de la qualite et de la fi- 
delite au theme propose (POKER 
ALPHABET) les logiciels qui se- 
ront commercialises. 
Article 4 

Un jury compose de specialistes 
de la distribution de produits in- 
formatiques et de pedagogues, 
preside par Georges LECLERE 
determinera le meilleur logiciel 



pour chaque ordinateur et, parmi 
ces meilleurs logiciels, un ga- 
gnant toute categorie. 
Article 5 

La cloture du concours sefera le 2 
Mai 1984 a minuit, le cachet de la 
poste faisant foi. 
Article 6 

Les prix alloues seront remis au 
plus tard 1 mois apres 1'annonce 
des resultats. 
Article 7 

Le present reglement a ete depo- 
se chez Maitre JAUNATRE, 1 rue 
des Halles 75001 PARIS. 
Article 8 

Le phx principal etant un contrat 
d'edition engageant HEBDOGI- 
CIEL et SHIFT EDITIONS a com- 
mercialiser les logiciels gagnants. 
les laureats s'engagent de leur 
cote a donner la preference a 
SHIFT EDITIONS pour cette com- 
mercialisation, et ce, pour tout 
pays. 
Article 9 

La participation au concours en- 
traine I'acceptation par les con- 
currents du present reglement. 



DU JOUEUR 



BON DE PARTICIPATION 
CONCOURS Georges LECLERE 



Nom : 
Prenom : 
Age : 

Profession : 
Adresse : 

N" Telephone : 

Nom du materiel utilise : 

Nom propose pour le programme ! 

Declare avoir pris connaissanco du reglement du concours "Georges 

LECLERE" public dans HEBDOGICIEL et en accopte le reglomont. 

Signature obligatoire : 
(signature des paronts pour les mineurs) 

Le programme doit otre expedie sur support maanetiquo (cassette ou 
di.'.q untie) accompagne d'un mode d'emploi tres detallld. Los pro- 
grammes non retenus ne sont pas rendus. 
Indiquez "concours Georges LECLERE" sur lanvoloppo 



LE HIT DU BLASE 



Salut a vous. bande de micro- 
mforrnaticiens que vous etes 
Cette semaine. |e vais faire 
plaisir aux possesseurs de 
COMMODORE VIC 20 Oui. 
out, cette petite machine qui 
nepossedeque3.5kOde me- 
moire centrale pourrait aise- 
ment concurrencer certaines 
.3 utres machines bien plus 
performantes sur les docu- 
mentations constructeurs {je 
m'adresse ici aux bouffeurs 
de Kilo-octets, sans rancune 
d'ailleurs puisque heureuse- 
ment pour tous c'est une es- 
pece en voie de disparition). 

Tout cela pour vous dire que 
le VIC 20 est loin d'etre, a mon 
humble avis, une machine de- 
passee et reste une des plus 
interessante console dejeux. 
imancierement parlant. En- 
fin, une precision tout de 
meme. je n'ai pas vendu mon 
ame a COMMODORE ni a son 
Importateur. 

Pa ssons aux jeux compati- 
bles avec le VIC 20 avec 
AVENGERS et STAR BATTLE 
qui arrivent ex-aequo a la pre- 
miere place. AVENGERS est 
le plus ancien jeu d'envahis- 
seurs sorti sur le marche ; ici 
nous en avons une realisation 
parfaite a tous points de vue. 
c'est-a-dire rapidite, gra- 
phisme et son. Si vous avez 
connu INVADERS au bistrot 
du coin, vous ne serez pas de- 
payses avec celut-ci. STAR 
BATTLE est la reprise du su- 
perbe GALAX1ANS en loca- 
tion pour quelques minutes 
dans des endroits de perdi- 
tion que Ton appelle aussi 
salles de jeux... Tres bonne 
realisation aussi. d'oii I'egali- 
te en tete du HIT. 

Dans AVENGERS {je rappelle 
le principe de ces deux jeux 
aux enfants de moins de 16 
ans), des creatures venues 
d'ailleurs tentent d'envahir la 



terre. je suis arme dun canon 
laser (c'est fou, ce que Ton 
peut faire avec un laser de 
nos jours), et je dois tous ies 
tuer avant qu'ils n'atterris- 
sent ; j'ai tout de meme 4 
blockhaus pour me proteger, 
au debut seulement. les peti- 
tes horreursayant tendance a 
les detruire avec une cons- 
cience que je qualifierai de 
professionnelle Dans STAR 
BATTLE je dois aussi tuer des 
envahisseurs (comme c'est 
original), mais ici. difference 
de strategie : ces petits can- 
naillous arrivent par vagues 
et je n'ai plus de blockhaus 
pour me proteger. seule la 
precision de mon tir, la rapidi- 
te de mes reflexes et la fines- 
se de mon pilotage me mene- 
ront a la fin dujeu ! (ces deux 
jeux se jouent soit au clavier, 
soit avec des manettes). 

Arrive ensuite SHAMUS, I'his- 
toire du petit bonhomme ex- 
plorant un labyrinthe avec 
son pistoiet laser (et oui, en- 
core). Finaiement, je dois ti- 
re r surtout ce qui bouge pour 
augmenter le n ombre de 
points et le nombre de mes 
vies, attraper toutes les cies 
sur mon passage pour passer 
dans les salles suivantes : il y 
en a 20. bonjour les degats 
avant d'y arriver ! 

Ensuite. void BRONZO, qui a 

la difference des 3 premiers 
n'est pas sur cartouche, mais 
sur cassette et necessite 
done un lecteur de cassettes 
compatibles (je rappelle aux 
nombreux possesseurs .de 
Commodores qu'un adapta- 
teur pour magneto cassette 
ordinaire sera it sorti pour pas 
cher...) et une extension d'au 
moins 8 Ko. Le principe du 
DONKEY KONG est une fois 
de plus repris ici avec une pe- 
tite histoire de valise origina- 



13 Micro-ordinateurs a prix 
charter Duriez 




DURIEZ EST LE PRE- 
MIER speciatiste ties 
calculatrices avancees ci ordi- 
naleurs portalifs. 

Fondeen 1783, Duriez ncse 
laisse pas cmballer par le non- 



durable. II propose lous les 
derniers modcles valables, 
avec accessoires, programmes 
dc jeux, d'affaires ci person- 
nels, livres, modes d'emploi. 
notices dcseriplivcs : Sharp, 
Canon, Olivetti, Casio, 
Hewlett-Packard, Epson.. 



Achetez sur place ou par poste 





* 


* • • • • 




* 


»"*:j;™ 


wrb?iJ 


* 


sl^Tt^rno a' k 




* 
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PC 1251 
PC 1245 
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HP41 CX 
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FX 801 P 

PB 100 
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Enfin, BOSS occupe la der- 


* 


niere place de ce hit d'un con- 


P8700 


fortable catalogue de pro- 


* 




grammes disponibles sur le 


* 


VIC. C'est un jeu d'echecs qui 


FP200 


lui aussi est sur cassette et 


* 




necessite au moins une ex- 




tension de 8 Ko. Avec un echi- 


* 




quier joliment reproduit. 9 ni- 




veaux de jeu. et une bonne 


■V 


qualite de reflexion, ce jeu 


* 




reste un tres bon produit. 
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Dune/ esi ouven 132. Hd Si 
Germain, Parish (M ' Odcnrn de 
9 h J5 ,i 19 h sauf lundii, Machi 
nes a ecrirc. papelchc. materiel 
tie bureau : 112. Bd Si Germain 
Ouven lundi au samcdi t li 30 - 
iSh 30. Ferine" lundi ei urnedi de 
13 a 14 h. 

Voy ez le Banc 
d'Essai Duriez 



-^ PACKS SUR SHARP. 
ZH COMMODORE, SIN- 
CLAIR. ORIC, CASIO, 
EPSON, THOMSON, etc... 

Ce Banc-d'Essais-Cata- 

loguc esi un condense de 
caracierisiiqucs techniques 
precises, sans delayagc publi- 
citaire. 

II est complete par des 
appreciations el des icsts 
Duriez sans complaisance. Et 
des conclusions pour guidcr 
voire achat. 



Je commande a prix c harter D uriez : 



132, Bd St-Germain, 75006 Pa 

Tel. 329-05-60 
□ 1 catalogue Duriez complet 
gratuit {calc. Scientifiq.. el impri- 
manies, Machines a dicier. 
Repondeurs icleph., Mach. a 
ecrire, Duplicaieurs. Materiel 
bureau. Classeurs. etc.). 
_ Bulleiin de micro-ordinateurs 
avances. 

D ... calculairice(s) marques ci 
modcles suivanis : 
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Port el cmballagc 40 F. 

' 1 Ci-joint cheque de F 

iouics laxes incluses (ou) 
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Remboursemcni), moycnnani un 
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DICO 




APPLE II 



DIM LT*(26). 
NL ■ 26: REM 
HOME 



(26) , 



,DF* 



NtJMBRE DE LETTRE5 DE L 'ALPHABET 

: PRINT TAB( 15)" JEU DU DICO" I PRINT 

REM LECTURE DES LETTRES 

FOR I = 1 TO NL". READ LT»(I>! NEXT I 

DATA A,E.,C,D,E,F,C,H,I 1 J,K,L,H,N,D,P,Q,R,S,T,U,V,W,: 

REM LECTURE DES MOTS ET DES DEFINITIONS 

FOR I = 1 TO NL 

READ NMII): REM NOrt&RE DE MOTS DISPONIBLES 

FOR J = 1 TO NM(I) 

READ MT«<I,J> 

READ DF*(I,J) 

NEXT J 



PRIM 



PRIN 



GET R* 
i IF R« = "0" OR R« - "o" THEN 
PRINT 
T = 100: REM TEMPORISATION 
L5 - 1 

REM NOMBRE DE POINTS 



VGUS LA RECLE DU JEU 
■" THEN GOSUB 500 



LI* 



1 1MI 



109 REM CHOI 



T A TROUVER 

MS = INT (NM(L5> ■ RND (1) * 1) 

HO* = MT«(L5,M5) IDE* = DF« CL5 ,H5) !NL ■ I 

REM AFFICHACE DE LA DEFINITION DU MOT 
HOME 

VTAB i: HTAB 5: PRINT " LETTRE : "JH* 

VTAB 6: HTAB 51 PRINT NL J " LETTRES " 

VTAB a: HTAB SI PRINT " DEFINITION ! " 

VTAB 10: HTAB Z\ PRINT DE* 



193 CALL 



19*. 


UTAB IS: HTAB 5: PRINT "REPONSE ! "J 


IVM 


T7 = 


199 


REM ATTENTE DE LA REPONSE DU JOUEUR 


200 


L5 ■ LS ♦ l 


210 


IF LS < = 24 THEN 220 


212 


UTAB IB: HTAB 5: PRINT CHR* (7); CHR* 




AVEZ PERDU" 


711 


VTAB 20: HTAB S: PRINT "LA REPONSE EST 


71R 


PRINT : GOTO 100 


770 


UTAB 5: HTAB 3S 


271 


PRINT LT*(L5) 


777 


T7 - T7 * 1 


771 


IF T7 > T THEN T7 = 0! GOTO 20Q 


27A 


R = PEEK ( - 16381> 


277 


IF ft < 128 THEN 222 


228 


POKE .l.j68,0:R* = CHR* (R - 128) 



?33 VTAl 15 



236 GET R»!l 



TRAITEKENT DU MOT EHTM AU CLA^ 
■ R» 

HTA8 \z: PRINT ■• 

HTAB 15! PRINT MJ* 
J» ■ MJ» • ft* 
IR*1 - 13 THEN GOTO a37 

8 THEN GOTO 733 



On peut modifier la Vitesse dedefilementdel'alphabet en 
modifiant la variable T a la ligne 80 : plus cette variable est 
elevee, plus le defilement est lent. 
On peut eventuellement completer ce programme en 
memonsant !es scores effectues par chaque joueur. 

Daniel BOTTON 

Comme le jeu televise bien connu, le but est de trouverun 

mot dont on connait la definition, I'initiale et le nombre de 

lettres. 

Pendant la recherche, I'alphabet defile sur un coin de 

I'ecran. 

II faut trouver la definition du mot avant que I'alphabet at- 

teigneZ. 

Ce programme a ete ecrit sur un Apple II" mais peut 
s'adapter facilement a tout micro-ordinateur disposant 
des fonctions suivantes: 

- saisieau vol d'un caractere (type INKEYS ou GETS) sans 
interrompre le deroulement du programme 

- effacement du bas de I'ecran (call-958 sur Apple II) : on 
peut le simuler par une serie de PRINT 

- positionnement du curseur en un point de I'ecran. 

La plus grande partie du programme est occupee par les 
donnees qu'ont peut modifier a sa guise. Elles sont struc- 
tures de la facon suivante : pour chaque lettre : nombre 
de mots disponibles. mot, definition. 
On peut done modifier le nombre de mots disponibles 
pour chaque lettre. 



IF LEN (MJ1I 3 THEN MJ* i 
HJ* • LEFT1 (MJt. LEN I M J* > - 

GOTO 233 
MJ* ■ LEFT* tMJt, LEN (MJ*) - 

IF MJ* ' , MUl THEN 200 

vtab in: htab s: print chr* 

EXACTE" 

NP = NP * 10 

VTAB 20: HTAB 5: PRINT " POINTS : ")HP 

GOTO 300 

REM LA REPONSE F0URNIE EST FAUSSE 

PRINT " REPONSE FAUSSE » 



GOTO 230 



CHR* 



PRINT CHR* 



283 FOR I 1 
286 GOTO 190 



310 GET R» 



TO 



ICO! NEXT I 



1 V0ULE2-V0US CONTINUE* ' 



330 HOME ! 

335 PRINT 

337 IF NP 

3313 PRINT 

339 PRINT 



PRINT ! PRINT 
TAB< 10)" VOUS AVEZ "JNI 
1 THEN PRINT " POINT ' 



GOTO 339T" 



VQULEZ-VOUS 



IF R* = "0" THEN 90 

PRINT : PRINT " AU REVOIft" 

END 

REM REGLE DU JEU 

HOME ! PRINT " CE JEU EST INSPIRE D'UN JEU TELEVISE" 



"LE BUT DU JEU EST DE TROUVER UN MOT." 

"DEFINITION DU HOT A TROUVER": PRINT 
"PENDANT OUE VOUS CHERCHEZ, L ' ALPHABET" : 
"DEFILE SUR LE COIN DRQI I DE L'ECRAN" 

"DES OUE VOUS AVEZ TROUUE, V0US DEVEZ"! 
■TRAPPER LE MOT AU CLAVIER, CE QUI " 
ARRETE LE DEFILEMENT DE L' ALPHABET , " 

SI LE MOT DONNE EST EXACT, VOUS POUUEZ" 
CONTINUES AVEC UN MOT DONT LA PREMIERE" 
LETTRE EST CELLE DE L'ALPHABET STOPPE." 



527 PRINT 

52a PRINT 

530 PRINT ' 
532 PRINT ■ 

531 PRINT ■ 
536 PRINT 
53B PRINT : 



PRINT "APPUYEZ SUR UNE TOUCHE POUR CONTINUER ' 
uci n»i HOME 
PRINT " CHAQUE MOT TROUUE RAPPORTE 10 POINTS." 
PRINT 

PRINT " LE BUT DU JEU EST D'OBTENIR LE "I 
PRINT " MAXIMUM DE POINTS A 

I DE ": PRINT "L'ALPHABET." 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



ATTENTION: TDUTES LES REPONSES DOIVENT" 
ETRE DONNEES EN MAJUSCULES." 
PRINT 

PRINT "APPUYEZ SUR UNE TOUCHE POUR CONTINUER • 
GET R»: PRINT : RETURN 



DATA 
DATA 
DATA 



DATA 



ACHAT, ACQUISITION A PRIX D'ARGENT 
ALLIANCE, UNION PAR MARIAGE 
ANNAL, OUT DURE UN ANS 
ARETE, OS DE CERTAINS PQISSDNS 
AMUSER, DIVERTIR AGREABLEMENT 



DATA BACUE.ANNEAU OUE L ' ON MET AUTOUR 1 
P.AL.REUNION LOCALE OU L'ON DANSE 
BELOTE, JEU DE CARTES 
BOURREAU, HOMME CRUEL 
BALEINE, GRAND MAMMIFERE MARIN 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



CANCRE, ECOLIER PARESSEUX 
CANETON, JEUNE CANARD 
CONSTANTE, OUANTITE DE VALEUR FIXE 
CROCHU, RECOURSE EN POINTE 
CHATON, JEUNE CHAT 

DESUET, DEMODE 

DIVORCE, RUPTURE LEGALE DU MARIAGE CIVIL 

DIGNEMENT, DE FACON CONVENABLE 

DOYEN, LE PLUS ANCIEN D'AGE 

DIPTYQUE, OEUVRE COMPOSEE DE DEUX PARTIES 

ECUEIL, ROCHER A FLEUR D'EAU 
ECLORE, SORTIR DE L'OEUF 
EPINETTE, PETIT CLAVECIN 
ERGOTER, CHICANER 
ELIMER, USER 

FONCIFORME.OUI A LA FORME D'UN CHAMPIGNON 
FLEURI, GARNI DE FLEURS 
FRUGAL, QUI SE N0URRIT DE PEU 
FUSILLADE, -ECHANGE OE COUPS OE FEU 
FOU, PIECE DU JEU D'ECHECS 

GLAPIR, CRIER D'UNE VOIX AIGRE 
C0UROU, MAITRE SPIRITUEL 
GRINCER, PRODUIRE UN CRI STRIDENT 
GRANULE) PETIT GRAIN 
GUTTURAL, GUI APPARTIENT AU GOSIER 



1EI30 
1B10 

1850 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



HUHANITE, L'SHSEHBLE DES HOHHES 
HATER, Rl MDRt I Llir, kaf-ioe 

rtTE COUPEE lit SAM 
HYDRATEI . . 'fMj 

ILLEGAL, COHTRMftl A t A LOI 
INDEX, AIGUILLE D'UN CADRAN 
INONDATIDN, 0EBORDEMENI OES EAUX 
IMPOSE: . . M| CCNTRAINTE 

I6LAH, RELIGION ET CIVILISATION D£S HUS 

JAME'ON, CUISSE 0U EPAULE SALEE DE PORC 
JOYAU, OBJEI DE GRAND PRIX 
JUVENILE, QUI APPARTIENT A LA JEUNESSE 
JUILLET, SEPTIEME M0IS DE L'ANNEL 
JOLI, AGREABLE A VOIR 

KAPPA, DIXIEME LETTRE DE L'ALPHAtET CREC 
KID.FOURRURE LUSTREE DU CHEVREAU 
KILOGRAMME, UNITE OE MESuRE DE MASSE 
HILT. JUPE COUftTE DES ECOSSAIS 
KRACH. DEBACLE FINANCIER 

LACRYMAL.RELATIF AUX LARMES 
LEGUER, DONNER PAR TESTAMENT 
LDPIN, PETIT MORGEAU DE TERRAIN 

INSTRUMENT DE MUSI0UE A C0RDES PINCEES 
IN CHIEN 0E CHASSE 



2310 


DATA 


23S0 


DATA 


2100 


DATA 


2110 


DATA 


2120 


DATA 


2130 


DATA 


2110 


DATA 


2150 


DATA 


2500 


DATA 


2510 




2520 


DATA 


2530 


DATA 



•!:■'.! 


DATA 


2730 


DATA 


2710 


DATA 


27S0 


DATA 


2800 


DATA 


2810 


DATA 


2820 


DATA 


2830 


DATA 


2810 


DATA 


28S0 


DATA 



2910 DATA 



DATA 
DATA 
DATA 



3100 
3110 
3120 
3130 
3110 
3150 
3200 
3210 
3220 
3230 
3210 
3250 
3300 
3310 
3320 
3330 
3310 
3350 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



HABLEUI 



FA. 'IF f,l 



3120 DATA 



3130 DATA 

3500 DATA 

3510 DATA 

3S20 DATA 

3530 DATA 

3510 DATA 

3550 DATA 



LICE.FEMELl 

MAC HER, BR OYER AVEC LES DENTS 

MALABAR, GRAND ET FORT 

MODESTE.OUI PARLE OE SOI-MEME SANS ORGUEIL 

MERLETTE.FEMELLE DU MERLE 

MIE, PARTIE INFERIEURE DU PAIN 

NAITRE.VENIR AU MONDE 
NAPPERON, PETITE NAPPE 
NUCLEAIftE.RELATIF AU NOYAU 
NATTER, TRESSER EN NATTE 
NDTER, CONSIGNER PAR ECRIT 

OBEISSANT.SOUMIS 
OUftAGAN.TEMPETE UIOLENTE 
OISIF.OUI NE FAIT RIEN 
ONIRICIUE.RELATIF AU REVE 
OSE.HARDI 

RACIFIOUE.OUI AIME LA PAIX 

PARTIR.SE METTRE EN CHEHIN 

PARADOXE, OPINION CONTRAIRE A L'OPINION COMMUNE 

PLAISIR, SENTIMENT AGREABLE 

POCHARD, IUROGNE 

OUADRILATERE.OUI A OUATRE COTES 
QUOTIENT, RESULTAT DE LA DIVISION 
QUIET, TRANQUILLE 

OUITTE.LIEERE D'UNE DETTE PECUNIAIRE 
OUETE, ACTION DE CHERCHER 

RABBIN, OOCTEUR DE LA LOI JUIVE 
RECEVABLE.OUI PEUT ETRE ADMIS 
REFLETER, RENUOYER LA LUMIERE 
RIXE.OUERELLE VIOLENTE 
RURAL, QUI APPARTIENT A LA CAMPAGNE 

SABOT, CHAUSSURE DE BOIS 
SEDITION, EMEUTE POPULAIRE 
SOIF.BESDIN DE BOIftE 
SIL.ARGILE ROUGE OU JAUNE 
SIECLE.DUREE DE CENT ANNEES 

TASSER.REDUIRE OE VOLUME PAR PRESSION 
TETANOS, CONTRACTION PRDLONGEE O'UN MUSCLE 
TINTER.RESONNER LENTEMENT PAR COUPS ESPACES 
TOXIOUE, OUI A LA PROPRIETE D ' EMPOISONNER 
TAROIF.QUI VIENT TARD 

URBAIN.DE LA VILLE 
UTILE, QUI REND SERVICE 
USAGE, QUI A DEJA SERVI 
US, USAGES 
UVULE.LUETTE 

VACANT, NON OCCUPE 
VACARME, BRUIT TUMULTUEUX 
VARLOPE, GRAND RABOT 
VACILLER.CHANCELER 
VEAU, PETIT DE LA VACHE 

HHIST.JEU DE CARTES 

WHISKY, EAU-DE-VIE DE GRAIN 

WAPITI, GRAND CERF D'AMERIQUE DU NORD 

WATT, UNITE DE MESURE DE PUISSANCE 

WIGWAM, HUTTE DES INDIEN5 D'AMERIQUE 

XENOPHILE, QUI AIME LES ETRANGERS 

XENOPHOBE, QUI DETESTE LES ETRANGERS 

XERES.VIN D'ANDALOUSIE 

XENON, UN DES CA2 RARES OE L'ATMOSPHERE 

XEROGRAPHIE, PROCEDE DEPRESSION SANS CONTACT 

YACHT, NAVIRE OE PLAISANCE 

YPREAU.PEUPLIER BLANC 

YEN. UNITE MONETAIRE OU JAPON 

YATAGAN, SABRE UNCURUE EN DEUX SENS OPPOSES 

YOUGOSLAVE, OE YOUGOSLAVIE 

3 

ZINZIN.UN PEU FOU 

ZDMBIE. PERSONNE SANS VOLONTE 

ZENITH, OEGRE LE PLUS ELEUE 

ZEBU.ESPECE DE BEUF DOMESTIQUE EN ASIE 

SLOTY, UNITE MONETATRE POLONAISE . 



MAC PAN 



PC 1^ 1 



Vous etes Mac Pan, un ecossais, cousin eloigne du cele- 
bre PAC MAN. Vous avez la chance de trouver des pieces 
d'or, vous etes alors heureux en bon ecossais que vous 
etes, mais tout d'un coup apparait un fantome : evidem- 
ment, vous etes en ECOSSE. II faut le payer ou jouer votre 
vie aux des. 

Michael MOULAERT 

UTILISATION DU PROGRAMME : 
En MODE DEF: SHIFT - 
Pour les directions touches 8,6.4 

8 : passer a la ligne du dessus encore toute vierge (retour au debut : 
{ligne 120) 
6 : aller a drolte 
4 : allcra gauche 

O : pour cacher Tor trouve, mais attention : a chaque fots que vous 
enterrez des pieces vous en perdoz 3 au fond du trou Inutile de les 
enterrer si vous en avez moins de 10 dans vos poches. puisque le Ian- 
tome ne vous escroque que dans le cas ou vous en avez plus de 10 
(ligne 20). 

II faut aussi quo le fantome soit a moins de 4 pieces do vous. pour 
pouvoir monnayor voire vie (ligne 100). 

Cos valeurs pouvent etro changees pour facilitor ou compliquor le jeu. 
SI voug avez done plus delOpi&ceset qu'ilvousavolo, vousaurezauto- 



matiquement la presence d'esprit d'entecrer ce qui vous reste et vous 

ne perdrezrien. 

Par contre. si vous avez moins de 10 pieces, le fant6me jouera votre 

vie aux des. Si vous avez !a chance de faire un double, la sommede vos 

des sera doublee. 

Si vous gagnez. le fantome vous paiera la difference : (somme de vos 

des - somme de ses des). Sinon la partie est terminee. 



PAUSE "KECOR 
D i-IA(ST) 

piFO« W-ITO 70 



>20>><Y<1)»1 
GOTO 250 
90ILET A*<Y)--f 
•iGOSUl 400 




100: IF CV-4<«Y>» 
(V«4>=Y)BEEP 
I = rrif.li !_ -f flN 

"■■I. r c ■■ i r pr 

ETiPAYEZr-i 
GOSUB 4301 
GOTO 120 

UDt GOTO 250 

12QI IF A<28>>-!0 
LET A(28)-A( 
29 >-10i PAUSE 
'■SUFFI?ANT'- 

iA<J9)»A(3e) 
.0<29)iA(28) 

-Oi GOTO 70 
UOi PAUSE "PAS D 
ORi;0UE2 VO 

IRE VIE 
140IA<29)*» 

isotooatn soo 

160iA(29)«A<2'i)« 

HA<A(29>>- 
]NT ABS t6AC 
27>'l)tlF A( 

;i>-jjgoto 1 

00 

ITOtOTTO 150 

IQOifiEEP MPRINT 

"VOS KSi 



DIE1 A(J4)- 

2ACJ4) 

2101 IF 0(S4)*A<5 
5)PRIHT -EGA 



LITE-iGOTO 1 


4001 EEEP H PAUSE 


10 


- -iniipnc 


220: IF A!I4)>A<3 


IIDIirilFIIG 


5)PRINT -V0U 


KHII1IIJI1K 


S AVEZ CACHE 


i1LHMtiN*IO 


"tGOSUS 500I 


ItPtKMIMla 


GOTO TO 


iniiM rum 


;jrjt H A<»>M(3 


430iW>A<38>*A(2S 


Dpfilm "vou 


HBEfP 11 


S AVEZ DOHC 


PAUSE "VOUS 


PEPDU-iGOSUB 


AVCZ -IWfPI 


4301G0I0 630 


■ I V..-M-.-.M .. 


.".CiPCrP l I INPUT 


A(29)f ET-I 


- <-4 *e 6-> 


A<JB)I' CACH 


(O)-IU 


EES'IRETURN 


:53t]F U-OLET A< 


300lA(St)-rt(54>- 


M)-A(JU)*A< 


A<J5MA<28)- 


2e)-SIA(28l- 


mi ,■■:..,-,. ',.. 


O I GOSUB 450I 


310IPRIMT "POHUS 


GOTO TO 


PE "IA<M>1 


2601 IF U-4LET Al 


■ ■■■■■ 




RETURN 


GOSUB 5501 V- 


3!0i IF At.V-I..- 




."lET 0<28)- 


-IGOTO TO 


>!', 


ZTOrlF U-6LET Al 


SHiOKTURN 




6001 IF M(V*1)b* 


GOSUB COOiV" 


."LEI A<tt>" 


V«1IAI(V)"*< 


.,■ !C\ ..I 


"■GOTO 70 


6 10' RETURN 


20OI IF U-OLCT A< 


630* IF H>fl<ST> 


Z»)-A<ZflXI1 


Lit A<3T>*NI 


GOSUB 4501 


BEEP M PAUSE 


GOTO «J 


"HOUVIAU RLC 


'.r«iiv-"l/ll'XtZ» 


OHDi-lntJ7) 


••37IZ-INI <X 


7CX1I INPUT -rtUTRH 


-■tSliX.X-I!? 


r«T]( 7 (0 


JIOHF K-OTNEN S 


'H) -1UI 


00 


7101 IF W(«"0- 


J20iX-(ES'X)"3iA 


GOTO 10 



EDUCATION ET INFORMATIQUE ^technique 



PRIMITIFS DE COMMAN- 
DE NU M ERIQUE EN BASIC 
La nolion de commande nume- 
rique effraye. a tort car !e nume- 
rique est par essence meme 
beaucoup plus simple, plus pueril 
au sens propre du terme que 
I'analogique. 

Par la presentation tres partielie 
d'un exemple Studie en milieu 
scolaire I'auteur veut montrer 
qu'un in format ici en de salon con- 
naissant bien son "Home Compu- 
ter" peut parfaitement saisir ce 
qu'est la commande numerique 
d'une machine outil. 



Un ensemble de fabrication a 
commande numerique est divise 
en deux unites distinctes. la ma- 
chine outil et le processeur de 
commande. La machine outil est 
pourvue des actionneurs et des 
capteurs necessaires a sa com- 
mande a distance. Le processeur 
de commande traite les informa- 
tions venant des capteurs, com- 
pare les valeurs des parametres 
mesures sur la machine outil aux 
consignes chiffrees imposees et 
en deduit les actions a mener.Vue 
qlobalement une machine a com* 
mande numerique sedefinit com- 
me unsystememecaniqueasser- 
vie a des donnees chiffrees. En 
liaison constante avec I'outil le 
processeur de controle travaille 
en temps reel, ce qui impose des 
normes de rapidite tres strides et 
favorise un traitement analogi- 
que. Dans le schema traditionnel. 
1'information numerique d'entree 
est immediatement transformee 
en une consigne analogique, le 
calculateurlui-memeetantentie- 
rement analogique. Les calcula- 
teurs numeriques modernes 
nt beaucoup gagne en rapidi- 
te, certains systemes plus re- 
cen's utilisent un processeur nu- 
merique et des capteurs fournis- 
sant directement les donnees de 
retour chiffrees. 

IndSpendamment du processeur 
de commande. et souvent hors du 
site, les systemes de fabrication a 
commande numerique utilisent 
unouplusieursordinateursd'aide 
a la programmation. Ces ordina- 
teurs d'assistance ceuvrent soit 
en ligne avec le processeur de 
commande, soit en differe parl'in- 
termSdiaire d'une bande perforee 
ou d'un support magnetique, 
dans tous les cas leur fonction 
premiere est la fourniture d'infor- 
mations codSes et formatees au 
standard requis par la machine 
outil. Comme dans tout systeme 
informatique, trois options sont 
envisageables pour la program- 
mation de I'ordinateur d'assistan- 
ce : 

- Un logiciel de dialogue inleractif 
qui ne suppose aucune connais- 
sance informatique chez I'utilisa- 
teur mais brime son imagination 
en ne permettant que les cas prS- 
vusd'avance ; 

- Un langage auteur specifique a 
la profession qui implique un in- 
vestissement important au de- 
part; 

- Un langage SvoluS d'usagecou- 
rant comme le Basic. 

Deux arguments justifient I'em- 
ploi d'un langage evolue d'usage 



general sur I'ordinateur d'assis- 
tance dune machine numerique : 
D'une part, la grande diffusion de 
ce langage rend inutile une forma- 
tion specifique lourde du person- 
nel utilisateur et limite I'investis- 
sement materiel a un "Home 
Computer" moins cher qu'un sys- 
teme specialise, 

D'autre part, la grande richesse 
en instructions des langagescou- 
rants procure une excellent esou- 
plesse de programmation. 

Le Basic, malgre ses incontesta- 
bles lacunes, apparait ainsi com- 
me une option raisonnable pour 
un etablissement d'Enseigne- 
ment Technique utilisant la com- 
mande numerique. Les routines 
de service specifique comme le 
formattage des donnees ou la 
perforation de la bande consti- 
tuent de veritables petits pro- 
grammes Basic : les primitifs que 
Ton a interet a definir unefois pour 
toutes et a regrouper dans un no- 
yau fondement de tout program- 
me proprement dit. C'est un tel lo- 
giciel de base concu pour une 
poinconneuse a tole que nous 
presentons ici, il se compose de 
deux primitifs dont 1'un concerne 
le formattage des donnees etl'au- 
tre leur codage pour la fabrication 
de la bande perforee. Sur la ma- 
chine etudiee. le format d'une li- 
gne de donnees est tres rigide. La 
ligne debute par le prSfixe OQON 
suivit immediatement d'un nume- 
ro de ligne sur trois chiffres, apres 
ce preambule vient le code pre- 
paratoire sur deux chiffres pre- 
fixes G. puis ies donnees gSomS- 
triques sont fournies sur cinq chif- 
fres precedes du signe et de lalet- 
tre X ou Y, une ou deux comman- 
des auxiliaires formant la ligne 
sont separees par des blancs qui 
seront elimines au transcodage. 
des espaces blancs remplacent 
aussilescommandesfacultatives 
quand elles sont omises de facon 
a constituer des lignes en un for- 
mat standard de trente cinq ca- 
racteres comme 1'exemple sui- 
vant : 

"OOON025G67X-00054Y+00000 
M06 T02". 

Les fonctions du primitif de for- 
matage sont ainsi parfaitement 
definies : creer un numero de li- 
gne SLN et le calibreren SNlS.for- 
mater la commande preparatoire 
ou la remplacer par des blancs, 
transcrire les coordonnees geo- 
metriques SDX et SDY en I'ecritu- 
re decimale acceptable SXS et 
SYS puis formater les comman- 
des auxiliaires ou les remplacer 
par des blancs. Accessoirement 
le programme assure la transmis- 
sion des instructions de rembobi- 
nage et de fin de la bande perfo- 
ree RWS et S sans les numeroter. 
La ligne dument formatee est en- 
registree en machine sous la refe- 
rence interne SIR. 



Le langage Basic ignorant totale- 
ment la notion de sous-program- 
me, les variables sont communes 
aux divers primitifs etau program- 
me principal ; les noms des varia- 
bles utilises dans le noyau pre- 
sents debutent systematique- 
ment par la lettre S et il est risque 
de les employer ailleurs. Pour dia- 
loguer avec le programme princi- 



pal la routine de formatage utilise 
six variables navettes, ces varia- 
bles sont initialisees a une valeur 
dite de defaut par le primitif. va- 
leur qui peut etre redefinie par le 
programme principal avant I'ap- 
pel GOSUB 330 declenchant la 
procedure. La liaison avec le pro- 
gramme de gestion du Teletype 
necessite quant a elle, deux varia- 
bles : un tableau de 1 a 64 ele- 
ments contenant les lignes des- 
tructions enregistrees et un poin- 
teuirSIRprecisantlenombrede li- 
gnes remplies. 

Les instructions sont ainsi stoc- 
kees dans le tableau SSTS, ce ta- 
bleau est lu et transcode par le se- 
cond primitif qui remet alors le 
compteur SIR a zero. 



Le second primitif, voue a la ges- 
tion du Teletype assure le passa- 
ge des donnees du code ASCII 
dans le code EIA et la perforation 
correcte de la bande. Comme 
nous I'avons vu les informations 
sont transmises au programme 
transcodeur sous forme de ta- 
bleaux qui sont traites ligne par li- 
gne, puis caractere par caractere. 
les espaces blancs sont elimines 
et un separateur (End of Block) 
est ajoute a chaque fin de ligne. 
Le programme transcodeur est 
appele automatiquement par la 
routine de formatage chaque fois 
qu'un tableau de 64 lignes est 
complet, quand le caractere d'ar- 
ret S est utilise le transcodage 
s'effectue sur un tableau incom- 
plet. Outre ces fonctions. le se- 
cond primitif produit 40 cm de 
bande d'amorce lors de la miseen 
route, assure la perforation de la 
bandeaufuretamesurede la pro- 
duction des codes EIA et ajoute 
40 cm de bande apres le dernier 
caractere ($) 

Dans la redaction proposee les 
deux primitifs formant le noyau 
sont relativement enchevetres 
car I'ordre des lignes est motive 
par la nature de I'instruction plus 
que par le programme utilisateur. 
Selon le schema traditionnel on 
trouve en tete les donnees en DA- 
TA, les declarations DIM, les affec- 
tations des constantes. Puisvien- 
nent I'initialisation des constan- 
tes et les definitions de fonctions 
specifiques les deux subroutines 
proprement dites sont casees im- 
mediatement apres ces defini- 
tions. Le programme principal de- 
bute ensuite precede par 1'Sta- 
blissementde la matricede trans- 
codage, I'ouverture du canal sur 
le Teletype et la realisation de la 
bande d'amorce. 
Le programme qui utilise un no- 
yau logiciel prefabrique peut en 
ignorer la structure exacte, mais il 
reste astreint a certaines con- 
traintes pour eviter une destruc- 
tion totale ou partielle de ses pri- 
mitifs. En Basic, il veillera notam- 
ment a ne pas reutiliserle numero 
d'une ligne ce qui ladetruit irremi- 
diablement ni le nom d'une varia- 
ble du noyau, les consequences 
pourraient etre surprenantes. La 
renumerotation des lignes pose 
un probleme dSlicat car si une re- 
numerotation au meme pas avec 
la meme origine n'apporte aucu- 
ne gene, un changement inconsi- 



dere modifie les points d'entree 
des subroutines et rend le noyau 
inexploitable. Pour etre utilisable 
le noyau logiciel est livre avec une 
feuilledecaracteristiquesregrou- 
pant ses parametres essentiels. 
voici la feuille de route de notre 
exemple (Resume). 

Logiciel de commande de la poin- 
conneuse Hughes N/C 220 Strip- 
pit 

Materiel : Ordinateur TI99/4A 
avec extension RS232C. teleim- 
primeur Teletype ASR 33 connec- 
ts sur la ligne RS232/1 de I'ordina- 
teur. 

Langage : Tl BASIC 
Premier Numero de ligne : 100 
Dernier numero de ligne : 960 
Pas de numerotation : 10 
Points d'entree : 
GOSUB 330 entree principle 
GOSUB 660 vidange du Buffer in- 
terne 

Variables reservees : toute varia- 
ble dont le nom commence parS 
Navettes en entree : 
SPC S : Commande preparatoire 
facultative si inchangee ou con- 
trole du deroulement de la bande 
(RWS et S) 

SAX : Valeur de X dans le repere 
absolu facultative si inchangee 
SDX : Variation de X (zero par de- 
faut) 

SAY : Valeur de Y dans le repere 
absolu facultative si inchangee 
SDY : Variation de Y (zero par de- 
faut) 

SACS :Commandes auxiliaires fa- 
cultatives (7 caracteres au plus) 
Remarque : Les sommes SAX = 
SAX + SDX et SAY = SAY + SDY 
sont effectuees automatique- 
ment a I'entrSe dans le noyau. 
Acces au tampon interne : 
Les instructions sont stockees 
par ligne, en ASCII dans le tableau 
SSTS de 64 lignes au maximum, la 
variable SIR pointe le nombre de 
lignes utilisees. A saturation le 
contenu du buffer est automati- 
quement transfere sur bande 
avec remise a zero du pointeur. 
Cette operation est dSclenchSe 
prSmaturSment par un GOSUB 
660. 

Registres internes : 
Les coordonnees absolues sont 
enregistrees sous les noms SCX 
etSCY il est imperatif de remettre 
ces registres a zero quand on 
commande la remise a zero me- 
canique de la machine outil (com- 
mande G69). 

Dans la redaction "Basic" de ce 
noyau de commande d'une poin- 
conneuse transparait I'influence 
de langages plus adaptes a la 
commande numerique comme le 
FORTH pour sa notion de primitif 
et le bon vieux FORTRAN riche en 
sous-programmes. Le choix de 
I'auteur est motive par deux argu- 
ments plus terre a terre, qui po- 
sent deux questions. Lassistance 
d'une machine numerique en lan- 
gage evolue vise essentiellement 
un public de lyceens au niveau 
premiere ou terminate. Combien 
de lycees disposent d'ordina- 
teurs utilisant le langage FORTH ? 
Combien de lyceens connaissent 
un autre langage que le Basic... 
qu'ils ont d'ailleurs appris en de- 
hors de I'Ecole Publique ? 

B. BRAUN 



Variables 


Utilisations et commentaires 


Valeur par defaut 


SPCS 


Commande preparatoire 


Quatre espaces blancs 


SAX 


Valeur de X en repere absolu 


Valeur precedente 


SDX 


Variation de X 


Zero 


SAY 


Valeur de Y en repere absolu 


Valeur precedente 


SDY 


Variation deY 


Zero 


SACS 


Commandes auxiliaires 


Sept espaces blancs 


SSTS 


Tableau de 1 a 64 lignes 






destructions 


Non definie 


SIR 


Pointeur nombre de ligne 


Zero 



Recapitulatif des variables navettes 



HEK STHIl 



'IT SOfl CORE 



DATA I 12/59, 6«, 107,49,32. I.E. 19.4,21,22,7,8,25 

DATA 97,96, 1 15, IBB, 1 17, I 16, 103, 104, 121,61, S2, 67 

DATA 84,69,70,87,88.73.50,35.52,37,38,55.56.41 

REM STOP BEUIMO:ll EHD OF BLOCK: 126 
' DIM SCOt4B) 
I DIM SSTS<64> 
: LET S8li = ■' " 
: LET SB4i=" 
! LET S2Si="0e0e0" 
I LET Sfli'^ZBetJ" 

I DEF SF0t(X)=SEGi<SZ5iiSTRICX;.LEN(STfiStX>)*l,5) 
I DEF S!;iS-X>«S!!**SEGJ<SZSS*STKWX>.LEN<STB*'X>)*a.3>*SBl* 

DEF STCStXi>-CKBI(SC0tASC«Xi)-7»INT(ASC'X»>/65)-43>) 
I LET SIB=0 
i LET SLH*0 
; LET SCX"0 
I LET SCY-0 
I LET SPCI»SB4S 
1 LET SACS-SB41 
I GOTO B70 
■ REM CREATING DATA BLOCKS 

LET SPCS"SEGICSPCS*SB4S. 1,4) 

LET Slfl«5IR*l 

IF SPCS="RVS " THEN 620 

IF SPCS-"! " THEN 643 



378 


LET SACS"SEGJ(5ACS*S84S, 1, 7) 


380 


LET SAX-1NT<SAX*SDX) 


390 


LET SDX»SAX-SCX 


QZ0 


LET SAY-INTCSAY'SDY) 


410 


LET SDY=SAY-SCY 


420 


LET SLN-SLN*! 


4 30 


LET SXI»'*X-" 




IF SDX<0 THEN 460 


4 50 


LET SXS-"X*'- 


460 


LET SDX-ABS(SDX) 




LET SXJ-SX1*SF0S(SDX> 


4 80 


LET SYS"" Y-" 




IF SDY<0 THEN 510 


500 


LET 5Y1-" Y*" 


510 


LET SDY-ABS<SDY) 


520 


LET SYi-SYS4SF0itSDY)*SB!i 


S30 


LET SSTi-SIR>-SNIi(SLN)*SPCWSXWSYWSACl 


540 


LET SCX«SAX 


550 


LET SCY-SAY 


560 


LET SOX-0 


570 


LET SDY*0 


5 80 


LET SPC*-SB4i 


5 90 


LET SAC1=SB41 


600 


IF S1R-64 THEN 660 


610 


RETURN 


620 


LET SSTKSIR)=SPCi 


630 


GOTO 560 


640 


LET 5STKSIRJ-SPCS 


650 


REM PUNCHING K.C. TAPE 


660 


FOR SR-1 TO SIR 


670 


LET SAl-SEGIfSSTitSR), 1, 1 ) 


600 


IF SAi-"R" THEN 770 


690 


IF SAS""!" THEN 780 


700 


FOR SS-1 TO 35 


710 


LET SAl-SEGt(SSTiCSR),SS, 1 ) 


720 


IF 5AS-SB11 THEN 740 


730 


PRINT *\ :STCi<SA»)J 


740 


NEXT SS 


750 


PRINT »I :CHRi( 128> 


760 


GOTO 7B0 


770 


PRINT *! :CHR»C0);Ct![li<e)iCHRl<l 1 ) 


780 


NEXT SR 


790 


LET SIR-0 


600 


IF SAi'"»" THEN 820 


010 


RETURN 


820 


FOR SS-0 TO 160 


830 


PRINT *l :CHRi(0>; 


840 


NEXT SS 


850 


CLOSE »1 


860 




8 70 


FOR SS-e TO 40 


880 


READ 5C0CSS) 


890 


NEXT SS 


900 


OPEN #1 •■•R5 2 32.8A- 1 1 e.DA*8. PA-N.LF.CR. TV" 


910 


FOR SS-0 TO 168 


920 


PRINT »l -CHRitP); 


930 


NEXT SS 



MATHEMATIOUES ■ 

AU DELA DE LA L— I 

CALCULATRICE -----I 

Roger DID1 ""■! 

L'activite mathematique com- 
mence la ou la calculatrice 
(ou I'ordinateur) ne peut plus 
rien. 

II est important que cette idee 
soit bien admise pour que le 
cadre dans lequel nous sou- 
haitons situer notre reflexion 
soit bien defini. Des critiques 
concernant I'usage de la ma- 
chine nous parviennent en 
effet, assez frequemment, 
mais elles portent toutes sur 
des aspects sans relation 
avec les mathematlques. 
Voici dix ans que je me preoc- 
cupe des problemes poses 
par une utilisation pedagogl- 
que de la calculatrice, 
qu'avec plusieurs collegues 
nous avons teste son influen- 
ce, que je trequente tous les 
milieux qui 8'y IntSressent et 
il m'est apparu que Inspect 
negatlf de cette utilisation 
provlent doa trois positions 



suivantes : 

- Calculatrice interdite en 
classe (par principe) 

- Calculatrice utilisee fre- 
quemment pour les calculs. 

- Apprentissage de la pro- 
grammation. 

Plusieurs collegues m'ont af- 
firme ne pas savoir tirer profit 
de son usage. 

Dans ces trois cas. le proble- 
me est mal pose. Dans les 
trois cas. 1'enseignant a ou- 
biie qu'il etait professeur de 
mathematiques. et la machi- 
ne faisant ecran, a eloigne 
I'objectif. 

Pourtant. chaque fois que 
I'homme a invente un outil (le 
liberant done de contraintes 
materielles). les limites du 
domaine reserve a son intelli- 
gence se sont precisees, et 
grace a cela se sont eloignds. 
II est certainement plus aise 
aujourd'hui de clarifier la pla- 
ce de l'activite mathemati- 
ques et c'est dans cet esprit 
que peuvent etre mis en 
oouvre les nouveaux outils 
que nous propose le monde 
modernc. 

C'est pour illustrer cette Idee 
que je propose quelques arti- 



cles ou j'exposerai des situa- 
tions pedagogiques au cours 
desquelles {'utilisation des 
calculatrices simples ou pro- 
grammables. peut amener 
I'eleve a mieux se rendre 
compte de I'objectif concer- 
ns par I'activitS proposee. et 
a mieux choisir les facultes 
qu'il doit mettre en oeuvre 
pour I'atteindre. 
Connaltre la machine, ses 
qualitSs. ses faiblesses, est 
certainement le meilleur 
moyen d'en dSterminer les 
limites et de rechercher 
le complSment nScessalre, 
apportS justement par notre 
intelligence, pour rSsoudre 
des problemes. Cette con- 
naissance de la machine n'ost 
pas une fin en soi : elle nedoit 
pas etre I'objet d'une Stude 
systSmatique qui, nous 
I'avons souvent remarquS. 
lasse les Sieves. Elle se fait au 
fur et a mesure que la notion 
mathSmatique qui la dSpasse 
entre dans I'object If du cours. 
Interessons-nous aujourd'hui 
aux nombros dScimaux ot a 
leur codogo, a I'approche des 
nombros rSels. 
DSs qu'on dScldc d'introduiro 



un nombre dans la machine (a 
I'aide de chiffres, du point de- 
cimal et de la touche +/-), on 
se rend compte d'une supe- 
rior! tS de r utilisateur sur ('ins- 
trument : chaque nouveau 
chiffre introduit provoque le 
dScalage de I'Scriture prSce- 
dente vers la gauche : ainsi la 
machine ne "connait" pas la 
valeur de position (le poids) 
du nouveau chiffre introduit. 
Seule I'utilisation d'une tou- 
che non numSrique met en 
route un mScanisme qui fer- 
ine I'Scriture du nombre. Voila 
de quoi lancer des dSbats 
profitables sur les poids des 
chiffres dans I'Scriture dSci- 
male et sur I' import a nee de la 
connaissanco de ces poids. 
Un autre aspect apparait rapl- 
dement ; la llmito de la capa- 
citS de I'Scran (huit chiffres 
en gSnSral) L'homme ost ca- 
pable de pensor des nombros 
dont I'Scriture com p rend bien 
plus de chiflros (et memo un 
nombre illimltS de chiffres !). 
Comment fairo uno multipli- 
cation dont I'Scriture du rS- 
sultat dSpasso huit chiffres ? 
Volla un problSmo qui peut 
amener a des rSflexions IntS- 



ressantes sur les algorithmes 
de la multiplication. Et si 1'on 
ne peut pas avoir plus de chif- 
fres, quelle erreur est-on 
amend a faire ? Sait-on majo- 
rercette erreur ? 
Connait-on suffisamment les 
donnees du probleme, les 
opSratlons et les fonctions 
que Ton manipule pour dSter- 
miner de fa?on certaine des 
encadrements pour les rSsul- 
tats obtenus ? 

A ce sujet, on devrait habit uer 
les Sieves a donner ces rSsul- 
tats en deux Stapes : 

1) lu sur I'Scran 

2) Encadrement de la solu- 
tion 

Exemple : 5 : 3 — 

je lis 1.6666667 

done 1,66<5I 

3 

1,67 (au contieme) 

Un exemple intSressant de 

mauvaise utilisation de la 

calculatrice (ot qui provlent 

de I'usage cournnt qu'on en 

fait) : la louche : est appolSo 

"divise" , olio ost thSorlquo- 

mont dostinoe a provoquer 

uno division. Or. II sufflt do 

multiplier le result at lus 

prScedomment pnr 3 pour se 



rendre compte quo Ton ne 
disposait pas du quotient 
exact de 5 par 3. Pour ceux 
qui crolent encore "voir" 5, 
nous conseillons de retran- 
Cher 5 pour vSrifier qu'ils 
n'ont pas (zSro). 
Le role exact de la touche : 
devrait otre prScisSe : elle 
donne une Scriture dScimole 
approchSe d'un rationnel. 
Pour l'homme 5:3—5 
3 
mais la machine ne peut pas 
connaitre ce nombre, (en ral- 
son de ses faiblesses !) et 
nous propose des Scrituros 
dScimales volslnes dont II 
faut connaitre la prSclslon. 
Nous irons plus loin dans la 
destruction de la machine 
dans de prochnlns articles ; 
car c'est de cola qu'il s'aglt : 
dStruIre la machine au profit 
de la construction do raison- 
nomont do notro 6l6vo Tous 
los pSdagoguos qui so sont 
penchSs sur cos problemes 
sont InvltSa a nous dcriro. 
Lour courrlor sora lo blonve- 
nu. lis pourront (aire profllor 
do lour oxpSrlonco tous coux 
qui voulont fniro dispnraitro 
I'Schoc on maths ■ 



fANGLAlS] 



A parlir du present numero 
nous ouvrons une nouvelle ru- 
bnque:JEUXETLETTRES. Elle 
comportera des logiciels de 
jeux pedagogiques esseniiel- 
lemenl, des jeux pour appren- 
dre les langues etrangeres, 
surioul I'anglais, mais aussi 
des jeux pour progresser dans 
d'autres disciplines. 
Ces logiciels s'adressent aussi 
bien aux heureux possesseurs 
de micros qui n'ont besoin de 
personne pour apprendre, 
qu'aux tormateurs (parents ou 
enseignants) qui cherchent du 
soft pour leurs machines afin 
de faire "travailler" ceux dont 
ils ont la charge et qui sont 
quelquepeu rebelles. Ces logi- 
ciels constituent en quelque 
sorte un compromis entre les 
jeux et I'E.A.O. Lejeu pedago- 
gique est un moyen de raviver 
et de renouveler I'interet decli- 
nant pour les logiciels de type 
labyrinthe. envahisseurs de 
I'espace ou autres monstres 
redoutables ; en tous cas. ils 
valorisent les jeux video en 
tournissant un appui educatif. 
En fait, les jeux pedagogiques 
que nous commencons a pre- 
senter sont un simple exercice 
scolaire qu'on a associe a un 
jeu quelconque. Dans les deux 
cas, le score s'affiche. Taction 
progresse vers le denouement 
final, mais dans un jeu pedago- 
gique pour faire avancer Tac- 
tion, il ne suffit pas de faire 
preuve d'astuce ou d'habilete, 
il faut aussi passer par une 
prestation de type scolaire. 
C'est par ce biais que le peda- 
gogue intervient a up res du 
joueur. II exploite la concentra- 
tion intellectuelledu joueurqui 
cherche a tout prix a realiserle 
meilleur score pour glisser au 
passage les connaissances 
qu'il lui fait acquerir. 



Pour cetle action pedagogi- 
que, nos logiciels proposent 
deux options : 

1°) Des hgnes de data incorpo- 
rees au programme principal 
2°) Un fichier raccordable a ce 
dernier par des instructions 
adequates. 

Les lignes de data sont redui- 
tesauminimumpournepasen- 
combrer un espace mernoire 
necessairement limite sur les 
materiels de grande diffusion. 
Ces lignes permettent de nour- 
rir le programme avec des 
items passe-partout tout p rets, 
mais, font surtout office 
d'exemples pour le pedagogue 
qui, lui, utiiiseraplu tot le fichier 
pour faire du sur-mesure, des 
misesau point, des mises a jour 
et pourconstiluerprogressive- 
ment son stock d'exercices. 
II est prevu egalement pour 
ceux qui entendent se passer 
du maitre.unetroisiemeoption 
que nous appellerons Toption 
"competition". Cette derniere 
permet aux joueurs de donner 
librecoursaleurcreativiteet a 
leur agressivite en mettant a 
leur disposition uniquement le 
schema ludique. Ainsi ils peu- 
vent jouer a deux. Chacun a 
tourde rple compose un enon- 
ce de son propre cru avec le- 
que! il defie la sagacite de 
Tadversaire. 

Le niveau du jeu a une grande 
importance. Trop facile il est 
ennuyeux. trop difficile il de- 
courage. Nous veil Ions ace de- 
tail en proposant chaque fois 
quelanaturedujeulepermetle 
choix entre "facile", "difficile", 
"tres difficile", suivant Teffort 
intellectuel qui est acquis. En 
ce qui concerne les connais- 
sances mises en ceuvre par le 
jeu el les sont definies avec pre- 
cision, mais elles le sont non 
pas en termes scolaires (classe- 



de sixieme. cinquieme etc.), 
mais en terme de formation 
permanente. debutant inte- 
gral, faux debutants, Interme- 
diaire etc... Ce qui est normal a 
uneepoqueoii il n'y aplusd'un 
cote des jeunes qui jouent et 
qui etudient et de I'autre des 
adultes qui n'etudient plus et 
qui n'ont plus le loisir de jouer. 
Aujourd'hui on joue et on ap- 
prend a tout age. 
Voila done le premier exemple 
d'une longue serie de jeux pe- 
dagogiques qui nous I'espe- 
rons s'avereront captivants et 
profitables sous beaucoup de 
rapports. Ce jeu s'appelle 
■BOOMERANG" et il illustre 
tous les principes que nous 
avons poses dans les lignes qui 
precedent. 

BOOMERANG 

Le jeu que nous vous propo- 
sons cette semaine est inspire 
du pendu, jeu familier a beau- 
coup de joueurs de tout age et 
dont il extste deja plusieurs 
versions pour micro ordina- 
teur. II nous fallait done faire 
preuve d'originalite ; pourcela 
nous avons garde les ressorts 
psychologiques sur iesquels 
repose le pendu et nous avons 
concretise I'element du sus- 
pens au moyen d'une batterie 
de lance missiles. 
Lesuccesdu pendu s'explique 
en partie par son c6te educatif 
qui le valorise et en partie par 
son cote "dramatique". "DRA- 
MA" en latin signifie action: une 
action qui progresse inelucta- 
btement vers une issue heu reu- 
se ou fatale, avec une tension 
qui croit continuellement. 
C'est le cas du pendu comme 
de notre jeu "BOOMERANG". 
En effet. le joueur procedant 
par essais et erreurs fait avan- 
cer Taction que son essai soit 



bonou mauvais si la fettre qu'il 
propose est bonne, c'est I e mot 
a decouvrir qui se reconstitue, 
dans le cas contraire c'esl le 
pendu qui prend forme. La par- 
tie est gagnee ou perdue sui- 
vant que Tenonce ou le pendu 
est reconstitue en premier, 
Dans "BOOMERANG" le pendu 
est remplace par une batterie 
decanonsou delancemissiles, 
sept au total, pour restefidele a 
notre modele de pendu qui 
comporte sept elements. Com- 
me dans ce dernier jeu I e joueur 
tente une lettre, mais avec 
BOOMRERANG cette lettre va 
se transformer en missile pour 
aller percuter Tenonce qui se 
trouve en haul de I'ecran. Si 
cette lettre fait partie de notre 
mot elle s'y incorpore et s'affi- 
che en bonne place, sinon par 
un effet de boomerang elle 
vient detruire le canon qui I 'a 
lancee. La partie est perdue 
lo rsque la reserve de la nee mis- 
siles est epuisee, gagnee si 
Tenonce complet apparait 
a van t la destruction to tale del a 
batterie. Le score est d'ail leurs 
proportionne! au nombre de 
canons restants, ce qui peut 
etre un element de suspens 
supplemental quand on joue 
a deux ; option qui est prevue 
par le programme. 
Ce theme des lance missiles 
est interessant parce qu'il est 
(malheureusement ?) au gout 
du jour et surtout parce qu'il 
permet d'exploiter les possibi- 
lites graphiques et sonores du 
micro ordinateur. En effet, des 
qu'il est question de missiles 
on ne peut plus faire abstrac- 
tion des bruits d 'explosion, des 
eclairs de conflagration, tra- 
jectoires de balles tracantes et 
autres effets faciles a obtenir 
avec le T199. 
Voyons maintenant Texploita- 



tion pedagogique que Ton peut 
faire d'un tel jeu. D'abord nous 
fixo ns la longueur de Tenonce a 
decouvrir non plus a un simple 
mot. mais a une ligne entiere 
d'ecran. Lefaitdeproposerala 
sagacite des joueurs une phra- 
se complete ouvre des pers- 
pectives beaucoup plus inte- 
ressantes qu'un mot unique. 
L'enonce a deviner peut etre 
une phrase etrangere mais 
peut aussi appartenir a des do - 
maines tres divers comme le 
Droit (il y a de nombreux ada- 
ges dans ce domaine qui tien- 
nent en une phrase), la science 
(iois, aximes, theoremes) etc... 
Signalons que cette abondan- 
cedepossibilites impose la ne- 
cessite d'introduire la phrase a 
deviner par un petit commen- 
taire de presentation destine a 
mettre le joueur sur la bonne 
voie. 

Si Ton utilise ce jeu pour I'an- 
glais, il est evident que la mani- 
pulation de phrases entieres 
est plus profitable que celle 
des mots car dans ce domaine 
le point faibie c'est surtout la 
syntaxeetnonlevocabulaire. II 
y a un autre point faibie non ne- 
gligeable que ce jeu peut aider 
a traiter, c'est la prononciation 
anglaise en particulier celle 
des sigfes et des lettres iso- 
lees. Les sigles sont de plus en 
plus employes a notre epoque 
surtout par les anglo-saxons. 
Nous avons pense que pour 
cette raison ce jeu etait I 'occa- 
sion idealed'utiliserle"Speech 
Synthetizer". II est vrai que peu 
d'utilisateurenpossedeun.car 
il presente un interet relatif 
pour les francophones en rai- 
son du vocabulaireassez parti- 
culier et limite qui reside dans 
le ROM. Mais dans le cas du 
Pendu ou autres jeux essentiel- 
lement a base de lettres qu'on 



epele isolemment le syntheti- 
seurtrouvealorsuneutilisatron 
optimale C'est pourquoi nous 
avons decide d'y recourir mais 
dune facon tres exceptionnel- 
le Evidemment ceux qui n'en 
possedent pas. pourront 
quand meme faire tourner le 
programme en supprimant 
tous les CALL SAY qu'il 
comporte. 

Disons pour terminer deux 
mots des lignes de DATA incor- 
porees au programme ; comme 
dans lejeu precedent elles ont 
valeur d'echantillon, chacun 
pouvant choisir le sujet ou le 
theme lie a ses preoccupations 
pedagogiques. II est bon que 
les lignes de DATA soient cen- 
trees autour d'une idee gene- 
rale bien definie. Dans le cas 
present, nous avons choisi des 
proverbes anglais. N'oublions 
pas egalement que chaque ele- 
ment de DATA comporte deux 
phrases. Celles qu'il faut de- 
couvrir et le commentaired'in- 
troduction dont nous avons 
parleplushaut. Tout cela est in- 
jecte dans le programme par 
Tintermediaire du fichier joint 
au programme principal. Nous 
restons en effet, fidele au prin- 
cipepose initial ement dans no- 
tre premier jeu : a savoir, que 
nos logiciels sont avant tout, 
des outils de travail destines 
aux educateurs... alors a vos 
postes de combat. 

JeanSAHAL 
R.DIDI D.AMROUCHE 

N.B. : En supprimant loutes les 
lignes de CALL SAY (une dizai- 
ne) le programme tourne en 
Basic Simple. Pourceuxquiont 
le Basic Etendu sans le Speech 
supprimer aussi tous les CALL 
SAY pour ne pas ralentir le 
programme. 



it,'.' REM INITIALISATIONS. DECOR 

160 RANDOMIZE 

170 CALL CLEAR 

18'.' CALL SCREEN! 16i 

190 CALL C0t-0R'.I3.4,4) 

200 CALL C0LOR(14.'?. 1 I 

210 CAUL CHAR! 176. "FFFFFFFFFFFFFFFF": 

220 CALL CHAR(137,"0F0FOFOF0FOF0F0F": 

230 CALL CHAR' 130, "OOOOOOOFOFOFOFOF" : 

240 CALL CHAR'.139,"0O0i»>FfiFfF0F0F , *> 

2S0 CALL CHAR(!40."FOFOFOFOFOFOFOF") 

260 FOR J=9 TO 12 

270 CALL C0L0R(J,7.t> 

2B0 NEXT J 



310 NEXT J 

320 REM S'lL V A BEAUCOUP DE DATA OU DE FICHES, 

MODIFIER LA DIMENSION DES TABLEAUX 

330 DIM Q«(S0>.C»<50> 

340 REM 

350 REM MENU PRINCIPAL 

360 PRINT " POUR DECOUVRIR LA PHRASE MANOUANTE, 

VOUS PROPOSEZ DES LETTRES A L'O 

RDINATEUR A L'AIDE DE VOS CANDNS": : : 

370 PRINT " LES CHIFFRES ET LES SIGNES DE 

RONCTUATION SONT ADMIS": : : 

JBO PRINT "vous avei droit a 7 erreurs": : : : : 

390 PRINT "N"IMFORTE QUELLE TOUCHE POUR CONTINUER" 

400 CALL KEY{0,K,S) 

410 IF K<1 THEN 400 

420 CALL CLEAR 

430 PRINT "VtlULEZ-VQUS '■"::: 

440 PRINT " 1 CREER OU MODIFIER UN FICHIER DE PHRASES' 

450 PRINT " 2 JOUER AVEC LES DATA DU PROGRAMME": : 

460 PRINT " 3 JOUER AVEC UN DE VOS FICHIERS": 7 



'■»!-r:Aijy to start* 



MO ON K-48 GOTO 540, 1 
520 REM 



330 REM CREATION OU MODIFICATION DE FICHIER 

540 CALL CLEAR 

Z5>> INPUT "VOULEZ-VOUS CREER UN NOUVEAU FICHIER 

560 NDATA=0 

570 IF REP»= M 0- THEN 6"'" 

580 REM LECTURE DU FICHIER EXISTANT 

570 OPEN »t:"CSl", INTERNAL, INPUT , FIXED 64 

iOO PRINT "LECTURE DU FICHIER" 

610 INPUT »I:NDATA 

620 FOR K>1 TO NDATA 

630 INPUT ■llQS(K),CS<K) 

',4" NE <T I 

650 CLOSE "I 

660 REM AJOUT DE FICHES 

670 NDA1A=NDATA-H 

6B0 CALL CLEAR 

690 PRINT "FICHE : M ;NDATA 

700 GOSUB 1360 

710 0«(NDATA)-P* 

720 C«(NDATA)=C0M» 

730 INPUT "UNE fllJTRE FICHE 7 



0/f> 



•■ :REP* 



740 IF I 



THEN 



730 PRINT "SAUVEGARDE DU FICHJER" 

740 OPEN Hi: "CS1 ". INTERNAL. OUTPUT, FIXED 64 

770 PRINT «1:NDATA 

780 FOR K-l TO NDATA 

790 PRINT •] :0«U ) ,C»ni 

BOO NEXT y, 

Bio CLOSE #1 

SL'O GOTO 420 

B30 REM 

B40 REM DATA 

GSO REM SI VOUS AJOUTEZ DE5 DAI A. MOD! F IEZ 

EN CONSFOUENCE LA VALEUR DE LA PPEM1ER 

E DATA ET EVENTIJELLEMENT LA DIMFN5I0N DES TABLEAUX !DEBU ( > 

S60 REM COMMENTAIRE SUIVI DE LA PHRASE A TROUVER, 

. U CARACTERES MAKIMUM POUR CHAO 

UEtPAS DE HINUSCULE9 DANTj LA PHRASE A TROUVER 

B70 I r ! J\ EXEMPLES A PARTIR DE PROVERBES ANGLAIS 

B80 L'ATA IO 

09O DATA A fclRD IN IME HAND..., IS WORTH TWO IN THE BUSH 

■fi> DATA IRON BARS. ..,00 NOT A PRISON MAKE 

910 DATA EVFF^ CLOUD. ...MAS a SILVER LINING 

720 DATA <><• M-uor- or- ihe PUDDING. IS IN lui: EATING 

930 DATA BEAUTV. ...IS M IN DEEP 

''*'■ DATA IHI WOULD IS A STAGE. .. .bill THE PLAV IS BADLV CAST 

TOO DATA IDLENESS IS.. ..THE ROOT UF all EVILS 

960 DATA Mm ii rHI il IB A will .... 'ill l:l I', A WAY 



970 DATA SLOW AND STEADY. .., WINS THE RACE 

9SO DATA A SWALLOW , DOES NOT MAI'E A SUMMER 

99U REM 

1000 REM JEU A PARTIR DES DATA 

101O CALL CLEAR 

102O PRINT "JE LIS LES DATA" 

1030 READ NDATA 

1040 FOR K>I TO NDATA 

105O READ Ct(K).D»(l-l 

1060 NEXT K 

1070 RESTORE 

lOSO GOTO 1220 

1090 REM 

HOO REM JEU A PARTIR DU FICHIER 

1110 OPEN Kl: "CS1", INTERNAL, FIXED 64, 

INPUT 

1 1 20 CALL CLEAR 

1130 PRINT "JE LIS LE FICHIER" 

1140 INPUT H1:NDATA 

1150 FOR K=I TO NDATA 

1160 INPUT »tlD»(K>,C»(K> 

1 170 NEXT K 

1180 CLOSE HI 

1190 REM CHOIX DE LA PHRASE 

1200 SC-0 

1210 PA=0 

1220 IF NDATA=0 THEN 1440 

1230 D=INT(RND*NDATA)*1 

1240 P«=0»(D) 

1250 CDM1=C»ID) 

1260 GDSUB 1990 

1270 GOSUB 1750 

1 280 CALL CLEAR 

1290 SC=SC*I 

13O0 PA=PA*1 

1310 PRINT "SCORE :":SC:"EN ";PA; 

"PART I E" tCHR* ( -S3* <PA .• 1 1 1 

1320 FOR S=l TO 500 

1330 NEXT S 

1340 IF <I>0>"IK-49)THEN 1380 

1350 ON 1.--4B GOTO 1220.420.1360 
1360 CALL SAV("G0OD BVE.") 

1370 STOP 

1380 FOR I=D TD NDATA-1 
0/N) ":REP* 1390 0* < I ) =0» ( I + 1 1 

1400 C* 1 1 >-C*(l+l> 

1410 NEXT I 

1420 NDATA=NDATA-1 

1430 GOTO 1220 

1440 PRINT "NO MORE SENTENCES IN STORE" 

1450 GOTO 430 

1460 REM 

1470 REM JEU A DEUX 

14B0 CALL CLEAR 

1490 PRINT "UN DE VOUS DONNE LA 

PHRAHE A L-QRDINATEUR 

PENDANT OUE L'AUTRE NE REGARDE FAS": : 

15O0 GOSUB 1560 

1510 GOSUB 1890 

1 520 GOSUB 1 750 

1530 ON K-48 GOTO 1480.420,1360 

1540 REM 

1550 REM SOUS PROGRAMME D'ENTREE D'UNE PHRASE 

1560 INPUT "DONNEZ LA PHRASE :":P« 

1570 IF (LENIP*) ;0>«(LEN<P*X29>THEN 1610 

1500 CALL SOUNDdOO, 200,5) 

1590 INPUT "VIDE OU TROP LONGUE. PHRASE :"jP« 

16O0 GOTO 1570 

1610 FOR 1=1 TO LEN(P*1 

1620 L=ASC!SEG»(P», 1 , 1) ) 

1630 IF :L- 32M IL;90)TMF.N 1700 

1640 NEXT I 
1650 INPUT ■COMMENTAIRE :":COM» 

ld,60 IF LEN<C0M»>'29 THEN 172" 

1670 CALL SOUNDdOO. 20O,5» 

1680 INPUT "TROP LONG. COMMENJAIRE : " : COM* 

1690 GOTO 1660 

INPUT "PAS DF_ •triUSCUlM.PHRASE :":r* 



1B40 


REM JEU SUR UNE NOUVELLE PHRASE 


1850 


REM 


I860 


REM ENTREES: P«=PMRASE 


1370 


REM SORTIES: I=SCDRE DE LA PARTIE 


18B0 


REM NOUVELLE PHRASE 


1690 


CALL CLEAR 




CALL SCREEN (8) 


1910 




1920 


FOR J=l TO 7 


1930 


JJ=4*J 


1940 


CALL VCHARC15, t*JJ, 136, 4> 




CALL HCHARU9.JJ, 136.3) 




CALL HCHARU8, JJ.137) 


1970 


CALL HCKARi 17, JJ, 13B) 


19B0 


CALL HCHAR<17,JJ+2, 139) 


1990 


CALL HCHARda, JJ+2,140) 


2000 


NEXT J 




1 = 7 


2020 


L = l 


2030 


C=3 


2040 


A«=COM* 


2050 


GOSUB 3490 


.■,,.-.;,, 


CALL HCHAR(5,3.95,L£N(P*) ) 




K-32 


2080 


KK-32 




GOSUB 3310 


2100 


L=23 


2110 


C-3 


2120 


A» = "le-tters alroafty fired" 


2130 


GOSUB 3490 


2140 


A»="FIRE A LETTER" 



2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2230 
2260 
2270 



2310 
2320 

2330 
2340 
2350 
2360 



2410 
2420 

2430 
2440 
2450 

2470 
24B0 
2490 
2500 



GOSUB 3490 
CALL KEY<0,K,S) 

IF SO THEN 21BO 

IF (K<6S) + t)O90)TH£N 2230 

KK-K*32 

GOTO 2270 

IF (K>32)«(K-:65ITHEN 2260 

CALL SOUNDIIOO, 00. I) 

GOTO 2180 

KK-K 

CALL HCHARI20, 3, 128.23) 

CALL SAY(CHRHK)) 

REM LETTRE DEJA UTILISES 7 

CU = 3 

CALL GCHAR(24.CU.G) 

IF G-128 THEN 2420 

IF Q<;K THEN 24O0 

A»-"ALREADV FIRED. TRY AGAIN" 

C-5 

CALL SOUND (-200, 200, 3) 

CALL SAYC'IITR'i' AGAINU") 

GDSUB 3490 

GOTO 21 80 

GOTO 2310 

CALL HCHAR(24,CU.K) 

GOSUB 2770 

IF 1=0 THEN 2610 



CALL CCHAR(5,Jf2.G) 
IF G-: :ASC{SEG»(P».J, 1 ) ) THEN : 
:P*)THEN 2530 



1710 

1 nO RETURN 



1740 REM ENCORE. MENU OU FIT 

1730 At-"1 MORE". 2 MENU, 3 ! 

1 /(,•> L"9 

1770 c-a 

I JBO QOSUS S490 

i 790 Ljill KEV<0,l .8) 

ni'". il is i i • a 49>»<K L,1 i 

IB10 i (il 1. SCREEN! 16) 

1020 RETURN 



.T,4..i 
25SO £ 
2360 * 

2380 
2590 
2600 

2620 

,.. ., i 

; 640 



i CALL IICHAR 



F L3AGWF 



GO!iUB ?490 

RETURN 

REM PARTIE I I ITHII 

CALL HCHAR(2'i. I. 12B, ( 

L-22 

C-4 

A«-"GAME DVI fi SORT) 

GOSUB 3490 

CALL SAY<"GORRY") 



2730 GOSUB 34 90 

2740 RETURN 

2750 REM 

2760 REM TIR 

2770 CALL SDUNDdOOO, -5. 0, 400, B> 

2780 11=1*4-1 

2790 CALL HCHARd 4, I I ,KK) 

2S0O FOR J«14 TO IO STEP -1 

2810 CALL HCHARIJ. 11.32) 

2820 CALL S0UND(-5, 31 1 .3) 

2830 CALL HCHAR < J-l , I I ,KK) 

2840 NEXT J 

2830 FOR J-II TO Z STEP -1 

2B60 CALL HCHAR(9, J, 32) 

2870 CALL S0UND(-5,311,S) 

2880 CALL HCHAR (9. J-l . KK> 

2890 NEXT J 

2900 FOR J-9 TO 4 STEP -I 

2910 CALL HCHARIJ, 2. 32) 

2920 CALL SOUND I -5, 31 1 . 3) 

2930 CALL HCHAR <J -1 ,:.■. IK > 

2940 NEXT J 

2950 IF POS<P«,CHR*<K:> , 1 H 

THEN 3310 

2960 FOR J -2 TO 30 

2970 CALL HCHAR (3, J , 32) 

2980 CALL S0UND120, 31 I , 3) 

2990 CALL HCHAR (3, J*l , Y.V.) 

3000 CALL S0UNDI2O, 1000.3) 

3010 NEXT J 

3020 FOR J»3 TD B 

3030 CALL HCHAR < J, 3 1.321 

3040 CALL 50UND<-5,311.3! 

3030 CALL HCHAR1J*1,31.KK) 

3060 NEXT J 

3070 FOR J-31 TO 11+1 STEP -1 

3080 CALL HCHAR(9,J,32) 

3090 CALL S0UND(-5,311.3) 

3100 CALL HCHAR(9.J-1.KK! 

3110 NEXT J 

3120 FOR J-9 TO 13 

3130 CALL HCHARIJ, 11,32) 

3140 CALL SOUNDl-5,311, 3) 

3150 CALL MCHARIJ + I. II.l M 

3160 NEXT J 

3170 CALL HCHARd4,l 1,32) 

3180 REM EXPLOSION 

3190 1-1-1 

32O0 FOR J- 15 TO IB 

3210 CALL SCREEN(7) 

3220 CALL SOUND 1200, -6. 2.200.5) 

3230 CALL HCHAR (J , 1 1 -1 . 32, 3) 

3240 CALL SCREEN! I 1) 

3230 NEXT J 

3260 CALL SCREENIB) 

3270 CALL HCHAR (19 I r - 1 , I 2B. 3) 

3780 RETURN 

3290 REM 

3300 REM CAS OU LA LEITRE FIGURE 

3310 K-0 

3320 Y-PDS(P»,CHR»(l;),X»l) 

3330 IF Y'. .0 THEN S36Q 

3340 CALL HCHAR (3, X*2, 3?) 

3330 GOTO 3280 

3360 FOR J-X*2 TO Y*l 

3370 CALL HCHAR! 3, J. 32) 

3390 CALL SOUND<20.331 , 3) 

3390 CALL HCHAR ( 3, J« 1 . f L I 

3400 CALL SOUND(20, 10O0.5) 

3410 NEXT J 

[420 CALI HCHAR(3,Y*2,K) 
3430 CALL SAY(CHR«<K>) 
3440 CALL SOUND (100,300, 5) 
3430 X-Y 
3460 GOTO 3320 

3470 REM 

S4B0 REM T.OUF. TRWiRAMME DISPLAY 
3490 FOR J-l TO LEN(At) 

13 :A1 I HCHAR1L.C-J-1 , 

ASC(SEG»(At,J, 1))) 
3510 NEXT J 

1020 Rl HJT.N 



} C-3 

' A»-"lHE CORRECT 

I BOSUB 3490 

• L-24 

I A*-P» 



BUDGET FAMILIAL 



Comme son nom I'indique ce programme permet de ge- 
rer votre tresorerie et de prevoir vos mois difficiles... 

Francis DESJARDINS 



Moded'emploi : 

Le principe : vous entrez vos previsions en debut d'annee. Pour cela 
vous disposezde 5 postes recettes(fixezvous-memeces postes) etde 
postes de depenses. 

Certaines depenses sont previsibles et ne se renouvellent qu"une fois 
par mois (ex. : loyer. pret. assurances, locations vacances, cigaret- 
tes.. ) . ce sont les depenses fixes (15 postes que vous devez prevoir. 
D'autres depenses se renouvellent regulierement (alimentation, loisirs, 
culture...) et sont imprevisibles ; 10 postes leur sont reserves. 
Le programme calcule. apres les previsions, ce qui reste disponible 
pour les depenses variables et vous indique les soldes mois par mois 
ainsi que le cumul depuis le debut d'annee. 

Ce travail preparatoire effectue vous pourrez sauvegarder I'ensemble 
sur cassette. 

Ensuite. une fois par mois. chargez votre tichier et entrez poste par 
poste vos depenses, recettes fixes et variables. Vous pourrez alors 
comparer vos previsions. L'ordinateurprevoitqu'aia fin del'annee vous 
devez etre a 0. Rien ne vous empeche d'etre plus optimiste et de pre- 
voir dans les postes depenses un poste EPARGNE !!! 
Le fichier cassette est bien sur du type : "annule et remplace" le prece- 
dent. 

Tout tableau peut etre copie sur imprimante : touche C*= COPY 
Bon courage, et essayez de prevoir I'achat d'un lecteur de disquette !! 
Le programme ne sera pas difficile a modifier ! 
En fin de programme vous trouverez quelques lignes permettant 
d'adapter ce programme a tout ordinateur. 

La seule difference etant la gestionducurseur permettant defairetenir 
les tableaux sur ecran 25 X 40. 

COMMODORE 

PREVISIONS ANNUELtES \ 1 *T 

MOIS RECETTES DEFENSES SOLDE ^"^ 

FIXES DU MOIS 



FEVRIER 


365(3 


2789 


6870 


MAPS 


16159 


8080 


8979 


flVRIL 


6650 


2739 


3879 


Mfii 


6350 


4330 


2579 


JUIN 


7150 


5030 


2129 


JUILLET 


3650 


5980 




ROUT 


6650 


2789 


3870 


SEFTENBPE 


6650 


5730 


929 


CCTOBRE 


6959 


2780 


4179 


NOVEMBPE 


1265? 


4732 


7929 


DECEMBRE 


15150 


5930 


10129 


jahvier. 


6650 


9380 


-3330 


TOTRL 


1 10509 


60960 


59840 



i:=i:opy-s=suite 



PREVISIONS DE L'RNNEE 



MOIS 


PECET. defense; 


SOLDE 


SOLDE 




TOTALES 


MOIS 


DEB. RN 


FEVRIER 


9650 


7016 


2634 


2634 


MAPS 


16150 


12316 


3834 


6468 


RVRIL 


6650 


7916 


-366 


6102 


MR I 


6959 


3616 


-1666 


4436 


JUIN 


7I50 


9266 


-2116 


2320 


JUILLET 


9559 


10216 


-566 


1754 


ROUT 


6650 


7916 


-366 


1383 


SEPTEMBPE 


6650 


9966 


-3336 


-1928 


QCTOBPE 


6950 


7016 


-66 


-1994 


NOVEMBPE 


12650 


3966 


3684 


1690 


DECEMBRE 


15150 


9266 


5384 


7574 


JRHVI6R 


6650 


14216 


-7566 


8 



MOIS DE 


MHRS 


PRETS CRM 


1859 


RSS PRET CRM 


050 


CFF 


2250 


IMPOTS 


6S0 


RSSURfiNCE CPPMA 


9 


SORflVIE 


9 


ELECTR1CITE 


2900 


TELEPHONE 


290 


PELO 


250 


VRCRHCES 





IMPOTS DIVERS 





RPSR 





VRCRNCE3 FILLE3 


9 


ERU 





Ii I VERS 


9 


TOTAL DEPENSES 


8088 


SRLRIPE 


15500 


RLLOC 


659 


PLACEMENTS 





VI ONE 





Ii I VERS 


B 


TOTftL RECETTES 


16150 


i>r.OPV-S=SUITE 




O REM p**»**»#*C0I"1M0D0RE 64*»»*»****» 

! p£H *0**«»**F.DES.IRRDI>IS*****«**** 
2 P0KE53299>6 

■:- PRINT"3B»1 VOUS PENSE2 UTIUSER L'lMPRINANTE 
5 PRIin''fftRPE>; El fcRRNCHEZ LR 

ly PRINT"JBBIH0N TRREZ N 

30 GET P* IF W«"0" THEN 01=1 G0TQ79 

49 IF RfO"N"G0T0 30 

50 PRINT M ;iiW51 PAR ERREUR.VPUS SGRTEZ DU PROORRMMf- 
'1 i-h!M1"»l 'E : I HE RUN/STOP> 

v. PRINT"* lnlRfc 1DOT0 150" PUIS RETURN 

53 PRINT"* VOUS RETROUVEREZ LE MENU 

54 PRINT' ;<'I<»ppppppppHFFhvFP SUR SHIFT 

55 WRIT 653.1 

79 D1M0P<18*12>/DR<15> 12>.D*'l5' 
M DIHRP<S. 12 ■ .RR<9. I2>.R*<S) 
■St* DIM PV« 10. 12) .DVI- 10. 

■■-. Mil i 1. ■ i. ■ . .!■(.■ i. . ■ ,RJ)< |,:'..prv U'..VM(12)-SP'.12j- 

R< 12 ',Ef<12>,£ft<12) 



89 DIM PFtl2»,RF< 12),FR< !2>,FPi l,: ■■ ■ Ptti 12 -.Fur. I2>,P*C12) 
!'.' PPINT".1NTREZ LE M1LLESIME DE L'HNNEE 
15 FRINT"«LR 0E3TI0N ME COHMEHCflMl Fm^ FORCEMENI 
PPIN1 IEH (flHVIER. ENTREZ I. RNNEE DU PREMIER 
25 PRINT '!•:-_ DE i_ EXCERCICE EN COUPS 
40 INPUT Wi-.EE ■; CHIFFRES) .fttW 

59 PRINT'-; l»Ppp»p»pp»»pl;<I1EMU" 

55 PRINT')*] ENTREE DES PEELS D UN MOIS" 

60 PRINT"«> LECTi.iFE DES REEL:. ■ MOii-RNNEE ■" 
65 RRINT"-I? SOLDE DES TFOIf. DERNIER* HOIS" 
79 PPINT-.04 ECflRT PRR RRFPORT RUX PREVIS1 Hi 
75 PRINT" 15 SAUVEGARDE SUP ^RS'-ETTF" 

S0 PPIHT-.H6 LECTURE DU FKHIER CASSETTE" 

35 PRINT"*? INITIALISATION - PREVISIONS ANNNELLES" 

30 PRINT-MS LECTURE DES PREVISIONS BNNUELLES" 

35 priht"KB MODIFICATION DES PREVISIONS" 

!B0 PRINT°*0 PIN ptt TRRVRIL*' 

295 PRINT" «pppPppppppMppMpppI:.EUTFeZ VOTRE CHOIX" 

2^ GET -i [p P. t =■•••0070 208 

210 IF R*-"1"G0T07BW 

229 IF R J ="2 "GUT 02890 

239 IF PJ="3"GOTO3509 

240 IF PJ="4"GOTO4n00 
250 IF R$="5"GOTO5809 
260 IF R*="6"GOTO6099 
270 IF RJ="7" GOTO 500 

269 IFP* = "8"RNDI'7=0RNDPR=0THENFRlNT".-IiPREVISIOHS HON 

ENTREES" GOSUB 350 GOTO150 

285 IF Rf="S" AND K7=i GOTO 1308 

288 IF PI="8" AND K7=0 AND PR =1 GOTO 1390 

299 IF R*="9"G0T0 9000 

390 IF PJ="0" GOTOllOOO 

310 GOTO208 

• 50 PPINT"*]RPPLiVER SUR SHIFT" 

360 UAIT 653. 1- RETURN 

590 REIT ****♦*♦*♦*♦* *♦ + ♦#§#*» 

591 REM ♦* «* 

592 REM « INITIALISATION ** 

593 REM ** 4* 
595 REM *****♦♦**♦**♦*.#<****♦* 

506 PRINT-aOBCHOISISSEZ INITIflLISBTION<I>< 
WWIKPREVISIOMS <P> OU MENU <M>" 

507 GET PJ:IF R5="" G0T0597 
503 IF R*="P" GOTO 912 

509 IF R*""M" GOTO 1513 

519 IF R*O"I B GOTO507 

511 IF IN=1 THEN PRINT'TaWDEJfi INITIRLISE" 

512 IF IN=9 G0T0514 

513 FOP AT=1 TO 1090.NE^T GOTO 596 

514 PPIHT'TMIOM I-ES DEFENSES FIXES (15)" 

515 FRINT"«1fl>:iITUt1 15 CRRRCTERES" 

520 FOP 1=1 TO 15 

539 FRINT"NO "JlJilNPUT D*<I> 

535 IF LENCD*<I»>IS THEN PRINT'TRDP LONG" :Q0TO539 
53? FOR X=LEN (D*(I))TO 15 ■ DJC I )=!'*< I )*■" "-NEXTX 

540 NEXT I 

559 PRINT"VRLIDE2 VOUS CO/N)?" 

569 GET PJ IF R»»"" GOTO560 
565 1FP$-"N" GOTO 514 

570 IF RSO"0"G0T0 560 

580 PRIHT"7IWfENTREZ LE NOM DES RECETTES (5)" 
535 PRINT "HRXIHUM 15 CRRRCTERES" 
530 FOR 1=1 TO 5 

689 PRIHT"NO ";i;:INPUT Rt<I> 

605 IF LEN(.Pf(I))>15 THEN PPINT"TPOP LONO"'GOT0 609 

619 FOR X-LEN<R*(I>)T013:R«<I>«R*<I>+ B "-KEXTX 
615 FRINT 

620 NEXT I 

639 PRINT"VALIPEZ VOUS <0/N>?" 

640 GET Rt IF R*""" GOTO 649 
650 IF P*="N" G0T0589 

660 IF R*O"0" GOTO640 

670 PRINT'TIWUNOM DES DEFENSES VARIABLES (10)" 

675 PRINT" IWRXIMUM 15 CRRRCTERES" 

639 FOR 1=1 TO 10 

690 PPINT"NO "-1; -INPUT DVSCI) 

632 IF LEN(DVJ(I>»15 THEN PPINT"TPOP LONG" :00TO698 

695 FOR X=LEN (DV*<I»TO 15 DV*U )=DV*C 1 1+" "NEXTX 

700 NEXT I 

710 PPINT"VRLIDEZ VOUS <0^N>?" 

720 GET R* :IF R*="" GOTO 720 

739 IF R*="N" G0TO679 

740 IF RJ<>"0" G0T0729 

750 PPINT'TKUPRP QUEL HOIS C0MI1EHCEZ VOUS 

ll»*»»B»r/OTRE GESTIOM" 

760 INPUT RDf 

778 FOR I=l TO 12 

730 PERD DA* IF Dflf=PIU G0T0319 

799 NEXT I 

qqq PRINT" JE H'fll PRS COMPR IS. ENTREZ UN 

MOIS EN TOUTES LETTRES" 

S05 PESTOPE C.OT0769 

810 FOP 1=1 TO 12 ■ 

329 M*T > = DA* 

830 RBFH) DAJ IF Dfl*O"Z0Z0"00T0B58 

340 FESTORE 

34s nn-rn 83R 

850 NEXT I 

360 DATA JANVIER. FEVRIER. MARS. AVRIt. MRI , JUIN. JUILLET -ROUT 

365 DRTR SEPTEMBPE.OCTOBPE.NOVEMBRE-DECEMBRE.ZOZO 

970 PPINT"^TW/OICI L-ORDPE PES MOIS :" 

SSO fop 1=1 TO 12 PPINTMJ'I > NEXT! 

399 PPINT"VAL1DEZ VOUS tO/N)?" 

9W GET PS IF Pf="" GOTO 999 

905 IF F*="N"THEN RESTORE r,nTn750 

■ajn if p.['-."ri" tyfijrr-'aff 

911 IN*1 GOTO 506 

912 PEM *****PPEVIS10NS**»**«»* 

«13 IF IN=9 THEN PRINT"3I«iriF0SSIFLE . IL FRUT 
D'RBORD INITIALISER" 

IF IN=9 THEN PPINT"«m»l*FRIPE SHIFT", WRIT 653.1-O0T0 500 
915 IF PR-1 THEN PRINT"n»rTPAVAIL DEJfl REALISE" 
"'16 IF PR=0 G0T01211 
17 FOR 1=1 TO 1099 NEXT GOTO509 
'18 FOR 1 = 1 TO 12 

929 PPINT"n«»ENTREE DES RECETTES PREVI SIONNELLES" 
325 RPINT-rtTOIS DE ".M*<I > 

930 FOP .'=1 TO 5 
335 FRINTPf(J<, 
940 INPUT RP<J,I) 

943 PRf n-PP'Ii+PP* J- I I 

945 NEXT J 

950 PRINT-VALIDEZ VOUS iO/H>9" 

360 GET Pt IF R*-"N" THEN PP(. I i-0: OOTO 920 

979 IF RfO"0"G0T0 ?6<d 
975 PP'9)"PR(9;+PRU) 

980 NEXT I 

1090 FOP 1=1 TO 12 

inin PPINT'TMDEPENSES PPEVISIONHELLES" 

1029 PRINT'"M10IS DE ";M*<I>;"M" 

10-^0 FOP J"! TO 15 

1049 PRINT WCJ>; 

1959 INPUT DP' T.I. 

1955 PI"! I '»PD<I >*DP' t. I I 

1... ,;. up [ 1 

1079 PRINT" PKALlIlEi; V0U8 COVN>?" 

1960 GET Pt IF P*»"N"THEN PD'I>-0 GOTO t010 
1190 IF RK:>"O"GOTO]O30 

1110 PD<e>"PD(0)+PD( I ' 

1299 NEXT I 

1205 DV-|NT"PP'0)-PD'9> 1/12' -PR-1 

1219 GOTO150 

1211 PRINT"3-CH0I8I&8EZ »»I»1«M ENIREC PRR MOIS 
ENTREE PRR CRTEGOPIE" 

1212 GET Rl IF Rf-"M" GOTO 918 

1213 IF PtO"C" GOTO 1212 

12 



A suivre : 

En raison de la longueur 
inhabltuelle du listing, nous 
passerons ce programme 
plusieurs fois. 

La Redaction 



.... 



:D*(I> 



<0/N)1 




1215 PEM«»EtiTREE FFf ■■■■ I -. I nn ; 

1216 FOR M rO c - 

1217 RRINT"^M ";R*<I> 
1219 FOP M=l TO 12 
1221 PPINTMJ'M^ 
1223 INPUT PP'I ,«) 
1225 NEXT M 

1227 PRINT"H'AL!DE2-VCiUS CO/N)">" 

1223 GET R* 

1231 IF Rt="N" GOTO 1217 

1233 IF R*0"Q" GOTO 1229 

1235 NEXT I 

1237 FOP M=l TO 12 

1239 FOP 1=1 TO 5 

1241 PR(H)=PR(N>+RP<I/H) 

1243 NEXTI 

1244 PR ' 9)=FPf 9 >*PR<M'' 
N 1245 MEXT II 

1246 FOP 1=1 TO 15 

1247 PRINT":!!) 
1249 FOP H=l TO 12 
1251 PRINTM»(M>; 
1253 INPUT DPn.M^ 
125? NEXT M 

1257 PPINT"HVfiLIDE2-V0US ' 

1259 GET P$ 

1261 IF R*-"N" GOTO 1247 

1263 IF R*<>"0" GOTO 1253 

1265 NEXT I 

1267 FOR M=l TO 12 

1269 FOR 1=1 TO 15 

1271 PD'M^PDW-.DPa.MJ 

1273 NEXTI 

1274 PD(0)=PB(0)+PD<M> 

1275 NEXT M 
1289 GOTO 1205 

1309 REM t#f*»»***»*#»**«*#»******»f» 

1395 REM »♦ n 

1319 PEM ♦UPELECTURE DES PREVISIONS"* 

1315 REM *• ** 

1329 PEM **•«*♦♦♦♦♦.♦»♦♦«***♦*♦»#»»♦* 

1330 PPINT"^»W1 VOULEZ-VOUS''" 
1349 PPlHT-mi LES PREVISIUNS D'UN MOIS <1>" 
1359 PPINT"»W LE PECAPITULAT IF ANNUEL (2)" 

1369 FRINT"«W PEVENIP AU MENU PRINCIPRL (3)" 

1370 PPINT"*iIi*>M*MpMMM»»»EN7PEZ VOTRE CHOIX" 
1380 GET P* IF Rt="" GOTO 1330 

1390 IF RJ="3" GOTO 150 

1409 IF Rf="2" GOTO 1659 

1410 IF Pt="l"G0T01450 
1429 GOTO 1399 

1450 INPUT'TTCPE BUB. MOIS";R* 

1479 FOR R=l TO 12 

1438 IF M*(P)=rj GOTO 1580 

1435 NEXTP 

1498 PRINT"HMJE H'ftI PAS COMPPIS" 

1495 PRINT"»ENTPEZ VOTRE MOIS EN TOUTES LETTRES" 

1496 FOR AT=1 TO 1000 -NEXT 
1498 GOTO1450 

1590 PPINT'T) MOIS DE "iMJCR) 

1520 FOP 1=1 TO 15 

1525 X=DPU.R' GOSUB 13999 

1530 PRINTDJ-'D.X* 

1549 NEXT I 

1545 X=PD<R>:GOSUB 13009 

1559 PRINT"STOTAL DEPENSES' ".X* 

1579 FOP 1=1 TO 5 

1575 X=PP(I.R) GOSUB 13999 

1589 PRINTRSCD-X* 

1599 NEXT I 

1592 X=FR(R>: GOSUB 13990 

1535 PPINT-3T0TAL RECETTES". XJ 

1699 PPINT"*»pM»»pp»»»»»ipl3:=C0PV-S=SUITE M 
1619 GET R*^IF P*=""GOTO1610 

1629 IF R*»"C" THEN GOSUB 129« i-OTO 1599 

1639 IF Rt="S" GOTO 1330 

1649 GOTO 1610 

1659 PEM RECAP PREVISIONS AHNUELLES 

1669 PRINT'TJpppppPREVISIONS RNNUELLES" 

1679 PRINT "MOIS" . "RECETTES" . "DEPENSES" . "SOLDE" 

1688 PRINT" "-" ". "FIXES". "DU MOIS" 

1690 PRINT: 

1700 FOR 1=1 TO 12 

1702 PRINTMJ(I). 

1703 X=PR(I) GOSUB 13000 PPINTX*. 

1794 X=Pti'I> -GOSUB 13900PRINTX», 

1705 X=PR(I)-PD(I> GOSUB 1 3999 PRINTXf , 

1729 NEXTI 

1739 FRIHT":rrOTflL- ". 

1731 X=PR<0) GOSUB 13990: PPIHTXS, 

1732 X=PD(0> GOSUB 13999-PRINTX*. 

1733 X=PR(9)-PD(0> GOSUB 15000 PRINTXJ 

1750 PPINT"W";X*:" F DOIT COUVPIR LES IiEFENSES VRRIRBLES". 

1769 PRINT" fJUI SONT DE ";DV;"F PRR MOIS" 

1789 PRINT"*»PPMM»pMpl5C=C0PV-3 = 3UnE" 

1785 GET RJ IF PJ="'- GOTO 1785 

1788 IF RS="C" THEN GOSUB 1290B GOTO 1660 

1730 IF R»="S" GOTO 9499 

1795 GOTO 1785 

1800 REM **♦♦*♦*♦***#♦♦♦*»****«•♦•*»•• 

1301 PEM * P 

1392 REM * ENTREE DEPENSES VRRIRBLES » 

1803 PEM ♦ • 

1804 REM ♦♦**♦»♦♦*•♦»****♦•**»»»#*•**» 
1910 FRINT'TWPE QUEL MOIS ?" 

1815 INPUT R* 

1829 FOP M=l TO 12 

1830 IF RI=Mf(M> GOTO I860 
1848 NEXTM 

1850 PRINT"»ION COMPRIS" 

1S5B PPINT"IENTPEZ VnTRE MOIS EN TOUTES LETTRES" 

1858 GOTO 1815 

I860 PPINT"."TOT0IS DE " ,M*'M> . "»" 

1870 FOP 1=9 TO 9 

1885 PRINTI;" ";DVf<I+I> 

1398 NEXTI 

iqnn PRINT" fHNTREZ LE NUMERO DE LR DEPEN^F" 

Sf.^SSSfjSS F^Km* TflPEZ . C0« »«R0- 

1915 PPINT-na-F.^ RE«B0UR8EI«NT9 BONT CONSIDEPES" 

J916 pPINT"rt3-0MME DES DEFENSES NEGATIVES" 

I«?0 ppiNT"^IrtPPMMMMMMMUUMERU". 

1021 GET If IF 1*="" G0T01921 

1922 IF U="*'T.nTO 1985 

1923 IF R8CCICX4S OR RSC(U)>57 GOTO 1921 

1924 I^VRLCU)*! 
jo?* PPINTI-1 

U40 PP|llT-il»MM»MMI»l»'«i "il.: VOUS <0^N)7" 

l?»5ft GET F« IF Pf-'-H-nnTOlSSQ 

1969 IF RtO"0" onrn L9SS 

1978 DVd.M>-DV 1 .iw.V 

1Q3R ppinT"etH»»WMMM»MiMii1 

1<J01 PRINT-Upppppppppp"*"" 1 

1"82 PRIHT"*M»MIIMWMIH 

1983 GOTO 1928 

iggg PRINT"n« TOTRL DtFENSW VRRIRBLES" 

1 ■.!. PRINT "IMHtMMDU MOW 1* ";M$«1) J "IT 

1999 VM< M<"0 

li^O FnR 1-1 TO 19 

,99] uM'n»vr«M>+rvn.n) x-dv(i,m> oosunnoeo 

1992 PPINTPVKDiX* 

"" HEXT1 sulle pago 15 
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xpene, 
ques menees dansle cadre de 
classes maternelles ne sont 
pas tres Irequentes. L'arlicle 
suivant relate brievement une 
experimentation courte qui 
s'est deroulee recemment 
dans les locaux de I'ecote 
matemelle ROMAIN HOL- 
LAND a DRANCY. grace a la 
comprehension de sa directri- 
ce et a la cooperation de la 
societe GO INTERNATIONAL, 
pour le pret du materiel. 
L'ecran tactile dont il est 
question dans le texte est une 
surface sensible posee sur 
l'ecran du televiseur et qui 
reagii a la pression du doigi, 
dispensant ainsi I'utilisateur 
de la manipulation d'un cla- 
vier. 

Les personnes desirant un 
complement d'informations 
(echanges d'idees. contacts. 
etc..) ou faire part de leurs 
propres experimentations 

peuvent ecrire au journal. 

N.D.L.R. 



"lis" sont arrives. Intense 
satisfaction des grands de 
matemelle. Aucune surprise ! 
bien evidemment puisqu'on 
les attendait et que depuis 
deux semaines. la vie de la 
classe tournait autour de ce 
sujet : decoration, activites 
graphiques, jeux du robot, 
langage... 

Ecran tactile et micro APPLE, 
introduisant pour une semai- 
ne I'informatique dans le quo- 
tidien de ces bouts de chou (5 
- 6 ans), ne venaient pas arti- 
ficiellement se greffer sur 
I'activite de la classe mais 
(c'etait I'idee de base) s'inte- 
grer dans I'univers scolaire 
des enfants : la "machine" 
presentait une nouvelle fois 
des exercices connus, la 
forme seule changeant, bien 
evidemment. 

De serieuses contraintes limi- 
taient considerablement et 
nos ambitions et le choix des 
exercices : la duree de ('expe- 
rience, I'impossibilite d'user 
du clavier (les enlants ne sa- 
chant encore ni lire ni ecrire) 
et le peu de materiel installe. 



Ces contraintes imposaient 
un travail en ateliers (tone- 
tionnement habitue! de la 
classe), une preference pour 
des exercices de deplace- 
ments (topographie, maitrise 
de I'espace plan) plutot que 
pour d'autres. une limitation 
du "temps informatique" afin 
que tous les enfants puissent 
manipuler les appareils ainsi 
qu'une reduction du nombre 
d'exercices proposes (deux 
exercices et un jeu afin d'ob- 
tenir un impact plus visible). 
A en juger par la reaction des 
enfants (a I'exception d'une 
jeune fille timide et un peu en- 
cline a affronter la rigueur 
froide du "robot"), I'activite 
fut un reel succes. Joie de la 
reussite et surtout de I'auto- 
nomie. Reussir seul, compte 
plus semble Ml, que la seule 
reussite. Mais aussi. utiliser 
un materiel sophistique. com- 
me les grands, leur a donne 
du plaisir. 

Labyrinthe se dessinant tout 
seul et a chaque fois diffe- 
rent, dont il faut trouver la 
sortie et le displacement d'un 
GLUP a la recherche de sa 
nourriture sur un tableau de 
5 cases sur 5 constituaient 
les deux exercices. Pour le 
GLUP. l'ecran tactile enregis- 
tre et affiche les deplace- 
ments (haut, bas, gauche, 
droite) que Ton obtient en ef- 
fleurant l'ecran sur la zone 
flechee. La symbolique est 
done facilement dechiffrable 
surtout qu'elle a ete introdui- 
te precedemment. De plus la 
possibility est offerte d'obte- 
nir une correction, la machine 
affichant le chemin le plus 
court. 

Pour le labyrinthe, un comp- 
teur permet de connaltre le 
nombre de deplacements 
commandes. Done, une sym- 
bolique identique pour les 
deux exercices, mais une pre- 
sentation differente sur 
l'ecran, cause de difficulty. 
Le peu de temps imparti n'a 
pas permis d'effectuer le 
travail de mise au point, de 
restructu ration que nous vou- 
lions mener avec les enfants. 
Quant au jeu, il permettait 
aux enfants d'acceder a la 
manipulation du clavier muni 
de touches flechees (reprise 
de la symbolique connue) : 
sur un canot rapide, I'enfant 
devrait, en evitant crocodiles 
et ecueils, sauver de malheu- 
reux explorateurs et surtout 
ne pas oublier de s'alimenter 
en carburant. 

Jeu O combien difficile pour 
ces bouts de chou, necessi- 
tant de leur part une maitrise 
certaine, de la motricite fine, 
de bons reflexes et ... beau- 
coup de courage. 

Meme plaisir pour les parents 
presents a la reunion d'infor- 
mation organisee, une fois 
n'est pas coutume, un soir 
apres la classe. ou des en- 
fants surexcites montrent et 
expliquent, qui a sa maman. 
qui a son papa, le mode d'em- 
ploi. 

L'interet d'un tel travail n'est 
certainement pas mesurable 
Sans oublier 1'aspect p6dago 
gique (decouverte d'un outil 
autonomie, codage, decoda 
ge, maitrise de I'espace-plan; 
le seul plaisir des enfants suf- 
fit a se convaincre de I'utilite 
d'une telle activite : activite 
ouverte sur le monde actuel. 
Que I'informatique soil de- 
mystifiee et que I'education 
nationale ne manque pas une 
nouvelle fois ce rendez-vous 
avec le monde moderne et ce, 
pour le plus grand bien des 
enfants. ■ 



SOLUTION DE 
L'HIPPOREBUS : ^f 

w 



10 FOR 1=1 TO 
20 READ X 
30 PRINT CHR£(X); 
40 NEXT I 
50 END 
60 DATA 83,79,70,84, 
87,65,82,69 
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Le premier HEBDOGICIEL 
SOFTWARE pour APPLE It et 
He est livre avec un emballa- 
ge de disquette reutilisable 
et un livret d'utiiisation, il 
comprend 12 logiciels : 

BASIC et D.O.S. FRANCAIS 
pour programmer en fran- 
cais sur APPLE avec ou sans 
extension memoire. C'est un 
APPLESOFT en francais dont 
les mots sont redefinissa- 
bles ce qui laisse la possibili- 
te de personnaliser les ins- 
tructions et de creer votre 
propre langage basic en 
francais. Pour apprendre le 
basic ou pour I'enseigner 
(langage machine). 

PROG RAM MATION STRUC- 
TURES pour une program- 
mation simplifiee et clarifiee. 
Acces aux instructions 



WHILE WEND. REPEAT. UN- 
TIL. IF THEN ELSE a I'aide de 
I'ampersand (&) (langage 
machine). 

MINI LOGO permet d'acce- 
der au graphisme tortue et 
aux procedures simples utili- 
sees par le langage LOGO. 
Les primitives sont adapta- 
bles. Ideal pour initiervos en- 
fants a LOGO. 

FONCTIONS SUPPLEMEN- 
TAIRES DE TRAITEMENT DE 
CHAINE. puissantes fonc- 
tions simplifiant la program- 
mation sur les chaines de ca- 
racteres. Plus de ASC 
(LEFTS(MIDS(AS.1.3))) illisi- 
ble, mais des fonctions Clai- 
res comme GLR, recherche 
un groupe de lettres ou SCH, 
extraction de chafne avec 
critere d'arret alphanumeri- 



queouMCH, modification de 
chaine par remplacement 
(langage machine). 

SA1SIE FORMATEE DE DON- 
NEES, indispensable pour 
une bonne gestion d'ecran 
lors d'une saisie. Permet de 
stipuler le nombre et le type 
de caracteres ainsi que les 
differents caracteres de 
contrble. (langage machi- 
ne). 

EDITEUR DE PROGRAM- 
MES pour resoudre tous les 
problemes de correction de 
lignes basic : insertion, com- 
pactage. suppression, re- 
cherche de mots. etc. (lan- 
gage machine). 

GESTION DE CARNET 
D'ADRESSES. une gestion 
de fichier modulaire simple 



et efficace avec presenta- 
tion des donnees sous forme 
de carte de visite. 

BISCRU.un jeu de reflexes et 
d'attention ou il faul eviter de 
laisser tomber les tartes du 
tapis roulant. Un graphisme 
elabore digne des jeux de 
cafe ! 

PARACHUTISTE un jeu d'ar- 
cade francais. Les paras 
comptent sur vous pour ne 
pas tomber a I'eau ! 

SOLITAIRE, un jeu classique 
au graphisme soigne. 

Et ENQUETE. mi-cluedo mi- 
mastermind, decouvrez I'as- 
sassin, I'arme, le mobile et le 
lieu du crime parmi une foule 
de suspect. 



PRIXUNITAIRE. 590 F 
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LOGICIELS FAIT MAIN ! 

Pourquoi acheter cher des programmes que vous pouvez entrer vous-memes dans votre ordinateur ? Utili- 
sez-les tel quel ou ameliorez-les pour en faire VOS Logiciels. En vente dans les FNAC, les boutiques 
HACHETTE. la REGLE a CALCUL, chez les principaux revendeurs ou par correspondance en utiiisant le bon 
ci-dessous. 



pour 
("ordinateur familial 

TEXAS NSTRUMETfTS 




Programmez vous-meme en Ti- 
Basic grace ades instructions 
simples, sansaucun peripherique 
ni module cornplementaires. Des 
jeux originaux et passionnants 
avec couleurs, graphismes et 
sons Jeux de mouvemenl (Bow- 
ling, Bataille de I'espace. Labyrin- 
Ihe, etc ) Jeux de reflexion : Da- 
mes, Pendu. Awari. Tour de Hanoi. 
Architecte, etc.) Jeux de societe 
(421.Goldie.Cochon.Mastermys- 
ter, Chiffres et mots, etc.) 
Des programmes performants: 
Calcul (Factures. Paye. Bioryth- 
mes. etc.) Assistance (Tierce. Im- 
pots. Suivi de compte en Banque, 
etc ) Et aussi des Astuces pour 
augmenter la puissance du lan- 
gage Ti-Basic. 



Suite de la page 1 



cals et ctrangers Vous pourrez 
ainsi acheter vos cassettes, dis- 
quettes et modules les yeux for- 
mes, HEBDOGICIEL les aura 
choisi pour vous ! Si vous ne les 
trouvez pas chez voire reven- 
deur habituel. vous pourrez les 
acheter par correspondance et. 
Si vous etes abonn6, on vous te* 



Le tome 3 est en basic etendu.il 
necessite done le module "Exten- 
ded Basic" qui augmente consi- 
derablement les possibles de 
votre ordinateur. A des program- 
mes utilitaires comme un traite- 
ment de texte ou une gestion 
complete de plusieurs comptes 
en banque s'ajou tent des jeux ra- 
pides (bataille navale, course de 
voit ures. etc.), des jeux de societe 
(Theme astral, Drapeaux. Poker, 
Harmonium, Calculette scientifi- 
que, Ardoise magique. etc.). des 
utilitaires pour creer des lutins, fu- 
sionner des caracteres.dessiner 
point par point, faire defiler des 
textes dans tous les sens ou en- 
core fabriquer une mire Texas a 
votre nom I 



JEUX et PROGRAMMES 

pour I'ordinoteur familial 

TEXAS INSTRUMENTS 

Tome 3 




JEUX et PROGRAMMES 

pour 

LORDfNATEUR 

ORIC1 



HO 

mimm 



Du jeu de reflexion classique 
(Tours de Hanoi, Pendu, Color- 
mind, Awele. etc.) aux utilitaires 
performants (Generateur de Ca- 
racteres, Tri, Calendrier, Histo- 
gramme, etc.) en passant par les 
jeux de reflexes (Terroric, La Plu- 
me et le Poussin. Labyrinthe, etc.) 
les jeux d'attention (Dames. Ro- 
tations. Enigmes, Coffre-fort. La 
Reine. etc.) ou de hasard (Poker, 
Quinze-Vainc. etc.) et sans ou- 
blier les mathematiques (Frac- 
tions. Nombres Premiers, Traceur 
de Courbes. Multiprecision, etc.), 
Jeux et Programmes pour ORIC 1 
offre un large eventail de pro- 
grammes aux couleurs, graphis- 
me et sons tres soignes. 
une mine d'or pour votre ORIC 1. 
Existe aussi pour ORIC ATMOS. 



JEUX et PROGRAMU 
pour I'ordinateur familial 
TEXAS INSTRUMENTS 
Tome 2 




Le tome 2 est toujours en basic 
simple, sans peripherique ni mo- 
dule complementaire Plusieurs 
programmes comprennent des 
versions fonctionnant soil en ba- 
sic simple, soil en langage machi- 
neaveclamini-memoire Lesjeux 
y sont encore plus nombreux 
Blackgammon. Sous-marin. Trap- 
pe. Roulette. Casse-tete, Puzzle. 
Echecs. Tachistoscope. Kim. Pai- 
res. etc. De la musique a inclure 
dans vos programmes Big Ben. la 
Marseillaise, God save the queen, 
les Rois mages, etc Et aussi, des 
programmes educatifs : Arithme- 
tique. Calcul de puissance. Re- 
gions de France, enlrainement a 
la logique mformalique. etc 



Vous connaissez le Ti-Basic. vous 
possedez un Ti99/4A et un modu- 
le "Minimemoire" ? Vous pouvez 
desa present disposer detoute la 
puissance de votre ordinateur ; 
Acces a toutes les possibilites 
graphiques, ycompris la haute re- 
solution. Acces direct a la memoi- 
re centrale. Grande Vitesse d'exe- 
cution (deux minutes au lieu de 
deux heurest rente pour un meme 
programme) 

Ce manuel. comprenant un grand 
nombre de programmes com- 
mentes vous apprend progressi- 
vement, sans connaissances 
techniques prealables. a maitriser 
un langage tres puissant reserve 
jusqu'a present aux seuls specia- 
listes. 



INITIATION AU 
LANGAGE ASSEMBLEUR du 
TEXAS INSTRUMENTS 
Ti 99 4/ A 




PROGKAMMES 




Explore? les etonnantes possibili- 
tes de votre CANON X-07 avec les 
quelques 40 programmes reunis 
dans cet ouvrage. Des program- 
mes performants qui fonction- 
nent sur le X-07 de base (8 KO) 
calculs scientitiques operations 
sur les matrices, conversion de 
coordonnees. racines de polyno- 
mes. intfigralion, interpolation, 
etc Des utilitaires gestion de 
compte en banque. histogram- 
me. impdt. hard copy, trace de 
courbos, biorythmos. e!c Des 
jeux : loto. poker, ardoise magi- 
que, un peu d'EAO, un super jou 
d'avenlures : le Tr6sor du Gahon 
et 3 "gros" programmes qui n6- 
cessitent une carte d'oxtension 
4 K ' Astral, Tierc6 et Surfaces ot 
Volumes 
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100 pngos 21 


29,7 
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************ 

- CONTRE REMBOURSEMENT: 
France i D + 20 F 

dtranger n *• 30 F 
OU 

- Reglomont joint .... .00 F 

cheque n CCf'i I 



HUBERT MINEUR DE FONDS 



_6o df-i:gosub704o 

_1010 x-7;y-2:u-30:V 
:of-o:uu-30:w-2 
_1030 cls:paperO: In> 
_io60 dokeib,480oo: ' 
re temps sacs 



_lHO PRINT 


ccccccccccccccccceceeccccc 






_1120 PRINT 


c 


_1130 PRINT 


cdcccccccceccccccccccceccc 






.1140 PRINT 


CO dec 






_nao PRINT 


cOccccccccccceeccccccccdec 






_1160 PRINT 


cdececcccceccceccccccccdcc 






_1170 PRINT 


CO Occ 










a ac 




_120O PRINT 


en Occ 






_1210 PRINT 


cdecccccccecccccdccccccccn 






_122D PRINT 


cOccOccccccccncca tfcccccc 






_1230 PRINT 


caccccccmmmccccccceOcccmcc 










cecd Oe 




_1230 PRINT 








_1260 PRINT 


edeneed 1 






_1270 PRINT 


cOcnncOcccccccccccccccdccc 






_1280 PRINT 


cdccmcd a 














_1300 PRINT 
















_I320 PRINT 


ccccdcecccccccccccccd a 


_1330 PRINT 


CCCCO d C[C Cd 






_I340 PRINT 


c Ocecccccceccccccd d 






_1330 PRINT 








„1360 PRINT 


CO 








Enfermes dans une mine, vous devez recuperer les sacs 
d'or. Mais le fantome de "PETER TETE DE PIOCHE" vous 
guette. Soyez prudent, il faut reussir les trois tableaux ! 

Jerome DENOT 



Mode d'emploi : 

Pour vous deplacer vous devez utiliser !es touches au bas du clavier. 

La louche espace elle a plusieurs tonctions et permet de : 

- Creuser les trous de faible profondeur 

- prendre les sacs (un seu! a la fois) 

- boucher des trous 

- monter dans le wagonnet lorsque vous etes sur une echelle. au des- 
sus de la voie ferree. 

- deposer un sac lorsque vous etes dans ce wagonnet. 
Pour sortir du wagonnet. il faut presser la touche '. 

Fonctions particulieres. 

DOKE 18,48000 permet d'ecrire surla premiere ligne reservee aux mes- 
sages "SEARCHING LOADING CAPS". 
DOKE-276,0 permet de mettre le chronometre a zero. 
T*-SFFFF—DEEK(i276) donne le temps a fa seconde pres entre deux 
actions. Ceci permet decalculerle temps que vous avez mis a ramasser 
un sac et le poser dans le wagonnet... et de donner un BONUS ! 



1 CHH«! 12) |CHR«I 1 



1380 


papesi : inkO: 


=0KE4BO40.20 




PL0TO,O,STR« 


RE1 


: plot io. 


i :plo 


2B,0,STR»(SA 




3T33.0.S 










_1400 


plotx.y.-i.-: 


»L01 


J.v. "P" 


_14I0 


L-RNDili : IFL 




1ENL-1EL 










_I423 


maitioo:ping 
















F0RI-JT032STEP2: 




_1363 


GOTO 1600 






_1370 


F0RI-2TO325T 






_I600 








_1603 








.1610 




• 1:1 


--i:goto 


_1620 








_1630 


IFSCRNIU.VK 


>99THENPL0TU 


:plotu,v, "o-:cotoi 


BOO 





100 S-SCRN 
-:G0T0ia90 



ifs-ioitheny- 



l: GOTO 1990 

-i:gotoi99o 

-l:G0T01990 



MO IFS-32THENPL0T; 
': GOTO 1890 



_6340 1 

INT 
_6530 ( 



_3290 GOTO6000 

_3300 S-SCRN IX, Y I 

_3310 IFS-100THENPLOTX- 1 , Y, * I'M 

_3320 IFS-99THENX-X-1 :G0T0199O 

_3330 IFS-109THENX»X-l:GOTOlV90 

_3380 X-X-l 

_339Q GOT0600O 



:fs-k 



11990 



■99ANDSCRNIX, 1 
■10OTHEN3200 

■THEN4000 
;THEN4000 



_3320 IF 

_3330 IF: 

_3330 IFS- 

_3333 IFS-I 

_3390 GOT0199Q 

_3600 S-SCRNIX.Y1 

_3610 IFS-1O6THEN1990 

_3620 IFS-IO7THEN1990 

_3630 IFS-108THEN1990 

_3690 G0TO6OO0 

_4000 SOUND2, 10,V;PLAY3, 

_4010 Y»Z'»:P(-0TX,24, *o- 

_4020 F0R]"ITO3l:PL0T3-; 



1OOTHENPL0T; 



>99THEN310O 



■:PLOT20,0,STR«1TT1 
<0THEN83O0 
■:PLOT10,0,STR*iOi 

.-5TTHEN7OO0ELSEPL0T2 



8,O p STR«ISA 
_3600 G0T04 



_6030 playi,o,0,o:forj- 
: SOUND I, J, 13:NEXTJ:Pl-ft'i 
_6060 vl-VI-l:PL0T37,O, 
R«1VII :IFVI=OTHEN630O 



CLS:PAPER3: INI 



ISTEP3 
1,0, ST 



:print:prinT:Print-vous VEN 

R DANS CETTE F1INE" 

■ INFERNALE. AIEIAIE'AIE! ! 

!ETHEN6360£LSEPRINT;PRINT:PR 

; RECORD EST DE ■ 



ig:uait30 

a-1thenst-sj 

a-2thenst-s* 



.7030 MUSK 

',o,i, iooo 

.7060 WAIT1 



_9HO PRINT' 


ccccccccccccccccceccccecc 






-" 20 PRINT* 


c 


_9130 PRINT" 


dcccdcccccccccccccccccccd 






_9M0 PRINT- 


dcccdcccnccccccccnccccccd 


_9130 PRINT* 


dcccOc«..».. n .«»».cccccd 






_9160 PRINT* 


dccccccccccccccccccd 


_9I70 PRINT- 


dcccccccccccccccccccccccd 






_9180 PRINT* 


a dccccd o o 


_9200 PRINT- 


ccdccccaccccoccccccccdccc 






_9210 PRINT- 




ccccnccccOc* 












_9230 PRINT" 


-ccd deceeccdceccccccdccc 






_9240 PRINT" 


cccccdccccccd dcec 






_92=0 PRINT" 


dcccccccco 


_9260 PRINT" 


dccccdccccccO Occc 






_9270 PRINT- 








_9280 PRINT* 








_9290 PRINT* 


: dccnmmccd dece 






_9300 PRINT* 


zcccccdcccccccdcccccdcccnc 


_9310 PRINT* 


.cccccd dcccncdcccce 






_9320 PRINT" 


CdCCCCCCCdCCCCCO 


_9330 PRINT* 


"OCCCCdCCCCCd dccccc 


eecOccccccc- 




_93-10 PRINT- 


-OccncdcccccdccccOccccccnc 






_9330 PRINT* 


-dccccdcccccdccccocccccccc 






_9360 PR'NT* 





,„,„. 


cHR.uin 


_93S0 PAPER2 


INKO;POKE48040, 201GOT0139 










_9S10 X-7!Y- 


?:u-30:vl9:uu-30:vv-19 



_9880 PRINT 'tCfH-t'HffffViHit 
ftlttttfCC * I CHPt (till 

_9890 PAPER3:lNK0rPOKE4S04O,20:Gi 



,6,2 

,8,4,4,6,0,0,0 

_10030 F0RI-46834T046991:READS:POKEI, 

_lO0flO DAT A32, 32, 63, 31, 27, 6 1,60, 24,0 



' DATAO, 0,63, 62, 61, 40,28,8, 12, ! 



_100SO DATA41 ,5-1,9,34, 9,34, 9, 3- 
30,12,30,30,12,0,43,63,43,43,6 

_10090 DATAI4, 31,21,21, 31, 17,31 

_11030 CLS: INK6:papER0 

_11070 PRINTCHR«(27I |-0-|CHR*i; 
14 J 1 -J HUBERT, MINEUR DE 



FONDS- 

_noeo i 



cls:papero; lw 
TEMPS SACS 



F0RI-1TO24:! 



_9630 1 
_9640 1 



_11100 PRINTPOUR DEPLACER HUBERT 

UTILISE! LES" 

.11110 PRINT-TOUCHES AU BnS DU CLAVlEf 

_11120 PRINT-LA TOUCHE AESPACEU , ELLE I 
PLUSIEURS' 

AGONNET Kgl ' 

_11140 PRINT", FAIRE DES TROUS A CEI 

NS ENDROITS,* 

_tii60 print:print:print 

_11170 INPUT-N1VEAU DE DIFFICULIE 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 = 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 



NOM: MATERIEL UTILISE : 

PRENOM : CONSOLE : . . 

ADRESSE: PERIPHERIQUES : . 

REGLEMENT JOINT : □ CHEQUE DCCP 



REGRAFON 



Ce programme vous permet de representer graphique- 
ment des fonctions mathematiques. Pour ce faire, intro- 
duce la fonction desiree en ligne 500 sous laforme Y=f(x). 

EtienneHILGER 

Mode d'emploi : 

Ex : pour la fonction cos(x). on a : 500 Y=COS(X). 
Au debut de I'execution le programme s'assure de 1'introduction de la 
fonction en ligne 500 puts passe a 1'introduction des parametres : 
- Bornes limites pour la representation 
Intervalie desX 
echellesdes axes 
pas de graduation des axes 

Lorsque le trackage de la courbe est terminee, un beep sonore vous le 
signale. Apres avoir conlemple votre ceuvre, appuyer sur la louche 
ENTREE : I'ordinateur vous offre alors 2 possibilites : stopper le pro- 
gramme ou moditier les parametres. Lorsque vous faites ce dernier 
choix, il vous soffit d'introduire —1 pour les parametres que vous ne 
desirez pas modifier. 

Ce programme satisfera notamment tes lyceens pour les etudes de 
fonctions. 

RS. ; lorsque le programme vous demande de faire un choix, il vous 
suffit d'appuyer sur la touche indiquee entre parentheses. 
Ne modifiez surtout pas le programme de gestion des erreurs car vous 
risquez fort de "planter" le programme ! 



TO 7 




■? iomo.eo: f^ee^. o. o= :l £:_::>;..".*. *.*: 

LEnP.,2 

B 0KERR0R GOTO600B 

: CLSiSCREEN4,e,8:flTTRBl . : : :. JLGR4,£:L0 " 

■EC'. T: e "P I «!■'=■ EGS«r.;,'. : ^ ;:--:■ ;. 5: *--z :.;,. 

DE FONCTIONS* 
•;- ATTRB6, BiC0L0R4,Bi LOCATES, F-: PR INT" SI 
A FONCTION N'EST PoS INTPCDUITE. "SPRJHT 
L'lNTRQDUIRE EN LIGNE 586. *t LOCATES, 12: 
RINT> COLORS, *: PRINT' CONTINUED : '-- I 

TfPSItfT'i S> STOP "*C0L0S4,fl 

8 H* = -' , :Hl = INKEYi 
8 :r H# = "3"THEN50'5 
IF hI = "C"ThEI-j;00 
GOTO50 



IMTRODUCTI0 



: E- 



„ = „;-ETPE! 



. ENTRE I 

26 ihpij' 

38 INPU' 



1O0 C0NS0LE9iCLS'L0CATEB, 10 

ue £ :■_:■-•;.-:--:'.■ aleure de : comprise 

•!COLOP4.0:PPINT 
H1F U— 1THEN150ELSE J-U 
I IF ^*-lTHEN15BELSE ■ ' -V 

:;!?-;m -„-..-; :nc--r-z:' 
ES flpRINT'V DOIT ETPE PLUS CRGND DUE U 
. ": FORI =9Trj 13: ?[_«■- OSLSSO-SMtliTI : PRINT: G 
0T01I9 
150 PRINT:C0L:>P6.4:FPINT'!NTERVKLLE DES 

;■; ■*iC0LOR4,BtmPUTSXiIF SX*-1THEN16BELS 

E VSX"ABS(SX) 

160 PRlNTsC0L0R6,4i PRINT'ECHELLE DE PER 

PESEMTUTIGN CHOI S IE: - : C0LQR4 . 0! PRINT 
170 INPUT- AX--JAXJ1F AX—1THEN1B0ELBE ■ 

h.; = hE= ■ hf: ■ 

130 INPUT" hY=";hY: ;F BY— 1 THENI 90EL3E V 

AY*ABS<AY) 

190 PRIMTiC0L0R6,4iPRIirr-PAS DE GRhDUhTI 

ON CHQISI ■j:C0L0Ri.6: INP'JTSP: IF SR = -!TH 

EN206E-3E VSP = f>B3- 3P > 

290 CONSOLE0:CLS 

235 ' 

290 ' TPAC«GE DES AXES 

291 ' 

300 CLS:LOChTE0,0,0 

710 DEFGP*-0.' = £4.6.£i. 102. 195. Id?, 8. 6- 
328 C'E^GRt' 1 ■i£4.i3.6,3, 3.6,12,24 
330 IF VU>-0THEf'JSOM&£.3e;:<: r .OTO400 
340 GOSue3008:GOTO400 

390 ' TRfiCAGE DE Lh COUPEE 



400 IF VUi=0THEr,GO;..^-iy.;-.-:- J :.iTij4?0 

41S COSUB5080:GOTO490 

490 FOR X-VU TO VV STEP VSX 

500 Y=COS<X> 

510 C"X*VAX+Mf » L»~Y*YAY+DY 

520 IF L<3 OP LM99THEN T=i:GOTO560 

525 IFC'-0OP C 3t5THEKT-liG0TOS6B 

570 :f : = vu then P3ET ■ C, L , . 2= GOT0568 

545 IFT = 1THEH PSET'C,L:<.2: T = 0:r J GTO56O 

555 IFT=0THEN LINE-'C,Lj,2 

560 NE/TX 

570 PLAY"O5LJ8S0" 

589 ' 

550 " FIN DE FP0G«H»E 

591 ' 

610 IF INKEY* >CHRI<13>THEN61C 

700 iCP.EEnO.0.0: :LS>SCREEN4,8,8 

710 ATTPB1. !:C0L0P4. 2: LOCATES, 3* PRINT"! 

GRAFON - :ATTRB8,0!COLOR4,8 

720 LOCATE0,9iCOLOR6,4:PRH(T-<M) MODI! 

C&TIONS":PP.INT:PRIHT"<F> FIN 

:C0L0P4,B 

730 tH* = "':ft*=IMKEY* 

740 IFAt="F"THEN900 

750 IFtH* = "H"THEN30 

768 GOT0738 

■i.jfi CONSOLES: LOCATES. 1 3: PLhY"05L 12FA" 

910 END 

1991 ' 

1992 ' 

1993 ' 

1994 ' 

1995 ' 

1996 ' 

1997 ' 
199S : 
1999 ' 



LOGIC STORE 

LA MICRO INFORMATIQUE 

FAMILIALE 



[T^i^mXATO lJT CASSER 

Du 3 au 7 avril en avant-premiere 
dans la micro informatique 
LOGIC STORE LANCE LES SOLDES 
sur des micros de qualite : 




VOUI-PFOGPkH^Et 



AXES 



TYPE £ 



AXES 



'PE 1 



99>,-5 



LINE' 19,10>-'l' 
2810 P8ETC2,I>0R»<8 
2020 LIMEC18,99>-C3 

2070 PSET(39. 12-GR*' 

204S FOR Z=8T0 VV STEP V8P 

205O ZS=Z*VAM+19: IF ZA>3ieTHEN2SS0 

2060 LIME(ZA.97>-IZH,[0!>,4 

£070 NE*TZ 

2OS0 FORZ = 8TCii0OS =*EP VSP 

2090 Z6=-Z*VAY*99: IF Z8<13THEH£I28 

2180 LINEtl9-2,28>-C19+2,2B>,-3 

2110 NEXTZ 

2120 F0R2-BTO-I888 STEP-VSP 

2130 2B=-Z*VAY+9?: IF 2E> 1 95THEN2 1 60 

2140 LINE' l9-2,ZB>-ri9*2,ZB),-5 



3050 
3076 



LINE(163-; 
NEXTZ 



LIWE(163,18>-'163,195>,4 

PSET(20,1>GRJC0),4 

LINE'-0.:-9>-<315,99),-3 

PiET' 39, 12>GP*a>,4 

FOR Z=3 TO VU STEP-VSP 

;a = Z*VhX+163: IF Z"-,0ThEN3080 

LINET2A,97J-i:2A, 101 i, 4 

NEXT2 

FOR Z=0 TO VV STEP VSP 

2h = Z«VAV+163: IF Zh-- 3 1 8 THE!: I : ii 

LINE(2A,97>-(2ft,101>,4 

NEXTZ 

FDR2=0TO1000 STEP VSP 

ZB«-2»VAV*99i IF 2B<13THEH3160 

LINE' 163-2. 2B>-> 1 63-2, ZB),-S 

NEXTZ 

FOPZ=0TO-100O STEP-VSP 

ZB=-Z*VAY*95: IF ZB> 195TMEM320O 



3200 RETURN 

3997 ' 

3993 ■ ORIGINE TYPE 1 

3999 ■ 

4000 DX=19:DY=99 
4010 RETURN 
4997 ' 

4993 * ORIGINE TYPE 2 
4999 ' 

5008 DX-163I&Y-99 
5010 RETURN 

5997 • 

5998 • TPAITEHENT DES ERREURS 

5999 ' 

6000 IF ERP=11THEM PESUI1E560 

6010 IF ERR-STHEV COLOR 1 : PR! NTT0NC T I CN 

INCOPRECTE":PP!NT"F:EvotP LES BORNI 

0R4: FORI =01010: PL- V"05lSl«" : HE 1 T I :".:■: :=.;■ 

TO1580:NEXT1 

6820 RESUNEIO 

6180 END ■ 



A Suite de la page 12 

^ COMMODORE 64 

l q=i4 X=VM f H> ' nrjSI IE 1 "30OS ■ PP I NT " rtaTFiTFiL" " • Xf 

1995 PPiHT"MW»»»»B»l3:=CnpV-S=SUITE" 
1^96; GETPI IF Rfo-g«OOTO 79^8 

1997 IF R*O"C*0OTQ 1996 

1998 C-GSijp i£fji?Ci 00TO 1983 

2y«i9 PEM »*♦*»»#»*«#*#»#[*#***•## 

299! REM ** ** 

2B132 REM ** LECTURE DES PEELS ** 

2«P3 PEH *♦ ** 

2984 PE11 *»«•**«***#*«•♦#*«***»♦ 

2818 IF IM=1 GOTO 2859 

2815 PRIMT"3BV0V8 DEVEZ D'ABOPD IHITIflLISER 

QiJ LIRE O-E FICHIEP K7" 

2916 FOR 1=1 TO 4088 NEXT GOTO 138 

2958 PPIHT'TW EHTPE2 VOTRE CHOIX" 

29?9 PPIIJT"«1 LECTURE I'ES FEELS D'UN MOIS" 

2578 PPIMT , 'PE DETfilL D'UH POSTE SUP UN P.H" 

2C,AP PPIKT-m RECPlPITULflTinn DES PEELS DE L'RtJHEE" 

2999 PPIMT"(W TOTHUX NEHSUELS DES DEPEN8E8 VRPIflBLES" 

P895 PPINT"3 TOTR'JX MEMSUELS IjES DEPEN8E6 FIXES" 

2996 PPIHTMK TOTRUX HEN80ELS PES RECETTE3 

2190 PPINT-B7 PETOUP flU MEHU" 

2119 GET Pf-IF P*=".7"G0T0 138 



2115 


IF P(= 


'3" GOTO 12500 




2116 


IF P*= 


■6" GOTO 22598 




2120 


IF P*= 


•1" GOTO 2158 




2125 


IF R*= 


'2- GOTO 2780 




2139 


IF OS* 


"3" GOTO 2499 




2133 


IF Rf- 


"4" GOTO 2590 




2148 


0OT0 2119 




2 I 50 


PEM *i 


LECTURE PEELS D'UH 


MOIS H 


2155 


PRINT' 


-OTEEL5 D'UN MOIS" 




2166 


INPUT 


"»1DE QUEL MOIS ";R» 




2178 


FOR M- 


1 TO 12 




2175 


IF P*« 


1*<M> GOTO 2209 




216(9 


ilEXTn 






2185 


PRINT' 


*H0N COMPPIS " 




2198 


PRINT' 


1EHTPEZ VOTRE MOIS EN THiJTES LETTPE 


2195 


GOTO 21€0 




2200 


PRINT' 


DWMREELS DU HOIS 




2203 


TP-0 






2210 


FOP 1 = 


1 TO 3 




2215 


»PP< 


,M> TP-TP*X GOSUB 13990 


2228 


PRINT 


R*f I >■•/,% 




2225 


NEXT] 






223e 


PRINT 






2235 


TF-9 






2240 


FOP I- 


1 TO 15 





2245 X.=DRa.M?'TF=TF+X: GOSUB 13090 

2250 PRINT D*CI>;X* 

2255 NEXT I 

225S X*TF:G0SUB 1S008 

2269 PRINT"TOTflL DEP-FIX ":XS 

2262 TV"0 

2265 FOR 1=1 TO 10 

2278 TV-TV+DV<I,lt) 

2275 NEXT I 

2280 X=TV:G0SUE 13009 

2283 PRINT"DEPEN8ES VRPIR ";Xt; 

2298 PPINT"«TCCHKqi*PifM»l*IBBMB«|i«»l*l»roTRL RECETTES" 

2293 X=TR: GOSUB 13000 

2380 PPIIIT fi>ti»»»»»»»»»»»»»»»i»i»t»»»»r ,xt 

2385 PRINT"li>»»»|iM»»*PffPI»>*nnrrOTRL DEFENSES" 

2310 X=TV+TF: GOSUB 13000 

2315 PRINT" n»B»»»PM»PMP»IP>*»»|i»*l"Xf 

2320 '---I nt- ■■>»MMMiMMBMBMMPiMM3CiLDE DU MOIS" 

2325 v=TR-TF-TV GOSUB 13898 

2330 ■HMMt>MMM)M»M»ntlM)>l I 

2335 PPIHT">mni»pP»Pt»t>fepMP»pppp*tp>pi»I C=C0PV 

2336 PRINT"lPPBPPP*P»P*P»PPPP*B»Pr.'=DETRIL DEP-VR" 

2337 FF IP»M»M»»»MM*P»»»M»P*[ S=SUITE"; 

2349 GET R* IF P$^"C"THEN GOSUB 12989 GOTO2209 
2345 IF P*="S" GOTO 2859 

2350 IF R*O n V" GOTO 2340 

2355 PPINT"ninriEPFir-ES VRPIRBLES DU MOIS DE ";M*(M> 

2353 PRINT 

2360 FOR 1=1 TO 10 

2365 X=DVfI.MV GOSUB 13009 

2379 PRIHTDV*f.I);X* 

2339 NEXT! 

2385 X=TV- GOSUB 13098 

2398 PRINT-wrOTflL DEP VRR ";X* 

2395 PRIfJT"IH»MP»»iiPP»>liaC-C0PV-3=SUITE" 

2396 GET R* ■ IF P*-"C" THEN GOSUB 12000 GOTO 2333 

2397 IF RK^S" GOTO 2396 

2398 GOTO 2039 

2490 REfl »* RECRP REELS RNNEE ** 

2495 PR I NT "HII PEELS DE L'fiNNEE »" 

2410 PRINT" MOIS RECET. DEFENSES SOLDE SOLDE 

2428 PRINT"~»PP»PP*l»P»PP»iffl IPt MOIS MlK f ' . RN 

2422 TP-9TD-0-TS-0 

2423 FOR M-l TO 12 

2439 FMtCM)-" "-tMKMJ*" ■ 
2433 FM«Crt)nPIGHTt<FMifM>.18) 
2438 IF PM<M>"0 GOTO 2475 

2440 PPINTFMKMJ, 

2443 X"RM(M) TP-TPt-X GOSUB 13988 PPIHTXf: 

2438 X-RDrMJ+VM^M' TD-TDtX GOSUB 13090 PPINTV.I . 

2455 X-PlirMJ-PD^Mi-VMrM) 

2468 T3=T3*X GOSUB 13008 PPINTXI : 

2463 X»TS 

2465 GOSUB 13099 PPINTX* 

2479 NEXT M 

15 



2475 PRINT"fl TOTRL 

2480 X=TP GOSUB 13000 PPINTX*; 

2485 X=TD:GOSUB 13800:PRINTX«i 

2495 X-TS-GOSUB 13890:PRINTX* 

2496 PRINT" Bi»»P»»»PPPiP>P»IJT=COPV-S=SUITE 

2497 GET PJ IF P*="C"THEN GOSUB 12000 GOTO 2480 

2498 IF R$0"S" GOTO 2497 

2499 GOTO 2050 

2509 REM *T0TRU>: mficfi iei.S DES DEP-VRP* 

2501 FOP LM=1 TO 12 

2582 IF vn<LM>e9 GOTO 2589 

2593 NEXT Lrt 

2589 LM=LM-1 

2319 PRINT".n»»»P»»PrTOTRL DES DEFENSES VRPIRBLES 

2515 PRINT-'B DEFENSES TOTRL DEPUIS MOVENHE 

2512 PRINT" DEBUT RNNEE " 

2313 PRINT 

2514 TDTs8 

2515 FOP 1=1 TO 10 
■2520 PPIHTDV*<I>; 
2525 
2530 
2535 
2549 
2545 
2550 
2552 
2555 
2560 
2363 
2570 
2573 
2580 
2585 
2590 
2595 
2396 
2397 
27m 
28011 
2810 
2811 
2812 
2S]1 



282' 
2830 
2033 
2848 
2850 
2868 
2870 
2S88 
2890 
290O 



FOR M-l TO 12 

XwX+DVfl . M> ! 22-X/LM GOSUB 13888 

NEXT M 

PPINTX*. 

TDT-TBT+X 

X"ZZ GOSUB 13099 PPINTX* 

NEXT I 

PRIHT-WPrOTRLIPPI 

X=TDT, GOSUB 13000 PPINTX* 

PPINT-rtUEOIT UNE rinvFNNE"; 

PPINT" SUR ";LM:" MOIS DE 

X-TDT/LM GOSUB 13909 

PRINT" "■.y.f," F" 

FF I NT" APPPPI a: -COPV-S-SUITE" 

GETP* IF R*-"C"THEH GOSUB 12808 GOTO23O0 

IF R«>"S" GOTO 2593 

GOTO 2838 

PEM**PETRIL D'UH POSTE SUR UN RN«P 

PRINT-.TB LISTE PES PIFFEPENTS POSTES WW 

FOR 1=1 TO 13 

IF I>9 GOTO 2820 

PRIHT" "JI)D*<I> 

lii-ipVF: '0 

PPINTI :»S<I) 
NEXT I 

PPINT'-WOHOI" 
FOR 1= 1 TO 3 

; >*»»P»»P»»PPPi»»»i»l i - !'■ LI' I ' 

NEXT I 

FOR 1=1 TO 18 

i f i i "it»PHPP»P»> i ; ■ ■' !■■ " ■ i ■ 

NEXT I 

INPUT "firt^NTPEZ VOTPE CHGI>:» ET FRITfS RETURN" ;R 

suite page 17 



ATTAQUE NUCLEAIRE HP « 



Ce programme qui fonctionne sur une HP 41C munie de 
3 modules memoires (ou 1 QUAD MEMORY) et de I'impri- 
mante HP (eventuellement du lecteur de carte magneti- 
que (non indispensable) consiste a detruire six vaisseaux 
spatiaux positionnes dans un espace de 10 X 10 et ceci 
aleatoirement. 

Pascal RIME 



Mode d'emploi : 

Une fois le programme charge, tapez un nombre (semence du nombre 
aleatoire)quelconquesuperieural.PuisappuyezsurlatoucheKj(en 
mode USER) qui lance le prqgramme. Quelques secendes apres, la 
machine vous demande d'executer le premier essai de tir que vous ta- 
perezsous1aformeXV(exem ple: coofdonneesX=5etY—2entrezau 
clavier 52) Puis appuyez sur 'LN et attendre I'impression des resul- 
tats. 

Si vous avez touche un vaisseau un signal sonore retentira et a la posi- 
tion Ou vaisseau touche s'imprimera le caractere * sinon ce sera le ca- 
ractere pour un tir rate. 

A la tin de chaque tir. I'ordinateurvous inforrnera de la reapparition des 
vaisseaux restant a detruire par rapport a la position de votre dernier tir. 
Ex. :S-1 N-4 E = 3 W= 2 (voir fin du listing exemple) 

SUD NORD EST OUEST 
pourletir55(X=5etY-5) 

Ce resultat impliquant d'ailleurs qu'il y a un vaisseau sur I'axe 50 a 59 et 
un autre sur I'axe 90 a 99, puisqu'il y a 6 vaiss eau x a detruire. 
A chaque nouveau tir, appuyer sur la touche |LN . Lorsque vousau- 
rez detruit tous les vaisseaux un signal sonore ainsi que le message 
"GAGNE" apparaitront. 
Bonne Chance !! 
NB : executez avant de charger le programme : SIZE 130 

Les coordonnees des 6 vaisseaux sontstockesautomatiquement 

dans les registres 01 a 06. 



12:32 21.81 
BIHBl -RH- 
92 CF 28 

83 CF 29 

84 CF 12 

06 -\-tt*tt*t**t*tf 

87 PRO 

88 SF 12 

89 •RTTRQUE ■ 
18 PRO 

11 -HIJCLER1RE- 

12 PRO 

13 CF 12 

14 -«***»«»******■ 

15 -(-*************** 

16 PRR 

17 flJV 

18 FIX 8 



19 SF 12 
28 STO 15 

21 38,129 

22 STO 25 
23*LBL 99 

24 " " 

25 flSTO IH1 25 

26 ISG 25 

27 GTO 99 

28 1,886 

29 STO 88 
38 8 

3! STO 14 
32»L8L 81 

33 RCL 15 

34 1 

35 R-D 

36 * 

37 FRC 



38 18 

39 » 
48 INT 

41 FS?C 81 

42 GTO 88 

43 STO 13 

44 RCL 15 

45 LN 

46 Xt2 

47 STO 15 

48 SF 81 

49 GTO 81 
58»LBL 88 

51 RCL 13 

52 16 

53 • 

54 * 

55 STO IND I 

56 ISG 88 



57 GTO 81 

58 CF 21 

59 -TIR?- 
68 nVIEM 

61 TOHE 5 

62 SF 21 

63 RTN 
64«LBL -FEU" 

65 STO 12 

66 8 

67 STO 88 

68 STO 89 

69 STO 18 
78 STO 11 

71 1,886 

72 STO 88 

73 1 

74 ST* 14 
75>LBL 82 

76 RCL INI 88 

77 RCL 12 

78 X=Y? 

79 GTO 83 
88 ISG 88 

81 GTO 82 

82 GTO 84 
83»L8L 83 

84 -1 

85 STO IND 88 

86 SF 85 
87»L8L 84 

88 RCL 12 

89 XEO c 
98 STO 87 

91 1,886 

92 STO 88 
93»LBL 85 

94 RCL IND 88 

95 X<8? 

96 GTO 86 

97 XE8 c 

98 RCL 87 

99 X=V? 
188 GTO 86 

181 X>Y? 

182 GTO 87 

183 1 

184 ST+ 88 
1B5«L8L 86 



186 ISG 88 

187 GTO 85 

188 GTO 88 
189«LBL 87 
118 1 

111 ST* 89 

112 ISG 88 

113 GTO 85 
114«LBL 88 

115 RCL 12 

116 18 

117 / 

118 INT 

119 STO 16 
128 1,886 
121 STO 88 
122*LBL 89 

123 RCL IND 88 

124 X<8? 

125 GTO 18 

126 18 

127 / 

128 INT 

129 RCL 16 
138 X=Y? 

131 GTO 18 

132 X>Y? 

133 GTO 11 

134 1 

135 ST* 18 
136«LBL 18 

137 ISG 88 

138 GTO 89 

139 GTO 12 
148*LBL II 

141 1 

142 ST* 11 

143 ISG 88 

144 GTO 89 
145»LBL 12 

146 8 

147 STO 17 

148 "ESSBI NO 

149 RRCL 14 
158 PVIEM 

151 flDV 

152 PSE 

153 "POSITION 

154 ARCL 12 



155 fiVIEH 

156 MY 

157 PSE 

158 GTO 94 
159*L8L "Z" 
168 "S=- 

161 flRCL 89 

162 RCL 89 

163 ST* 17 

164 -FN=- 

165 flRCL 88 

166 RCL 88 

167 ST* 17 

168 •(•£=• 

169 flRCL 18 
178 RCL 18 

171 ST* 17 

172 -W=- 

173 flRCL 11 

174 RCL 11 

175 ST* 17 

176 AV1EU 

177 flDV 

178 PSE 

179 RCL 17 
188 X=8? 
181 GTO 13 
132 RTN 
I83*L8L 13 

184 -GflGNE- 

185 BEEP 

186 flVIEk 

187 flDV 

188 RTN 
189*LBL c 
198 18 

191 / 

192 FRC 

193 18 

194 * 

195 INT 

196 RTN 
197+LBL 94 

198 RCL 87 

199 IB 
288 « 

281 38 

282 * 

283 RCL 16 



284 ♦ 

285 STO 24 

286 FS?C 85 

287 GTO 98 

288 -0- 

289 flSTO IND 24 
218 GTO -Y- 
211»LBL 98 

212 TONE 5 

213 TOHE 5 

214 TONE 5 

215 "t- 

216 flSTO IND 24 
217«LBL -Y- 

218 128,129 

219 STO 23 
228 -91- 

221 XEO 96 

222 118,119 

223 STO 23 

224 -81- 

225 XE6 96 

226 188,189 

227 STO 23 

228 -71- • 

229 XEO 96 
238 98,899 

231 STO 23 

232 -61- 

233 XEO 96 

234 88,889 

235 STO 23 

236 -51- 

237 XEQ 96 

238 78,879 

239 STO 23 
248 -41- 

241 XEO 96 

242 68,869 

243 STO 23 

244 -31- 

245 XEO 96 

246 58.859 

247 STO 23 

248 -21- 

249 XEO 96 
258 48.849 

251 STO 23 

252 -II- 



253 XEO 98 

254 38,639 

255 STO 23 

256 -81- 

257 XEO 96 

258 " • 

259 PRfi 

268 ■ 8123456789- 

261 PRR 

262 flDV 



263 GTO -Z- 
2641LBL 96 

265 -V 

266 flRCL IND 23 

267 ISG 23 

268 GTO 96 

269 PRft 
276 RTN 
271 END 




8123456789 



ESSBI 
POSIT 



8123456789 
S=3M=eE=3U=8 
ESSQI MO & 
P0SITIOH=74 



8123456 789 

■. hi ,,, i,u i 



8123456789 



8123456789 



8123456789 
5«8H^BE..OU = 



PUISSANCE 4 



Sauriez-vous aligner avant votre adversaire 4 pions (sym- 
bolises par Xou O) verticalement, horizontalement ou en 
diagonale ? 

Laurent GIGAULT 

Mode d'emploi : 

Choisira son lour une colonne (de 1 a 7) le pion se positionnant sur la 

case iibre la plus basse ... etc ... 

Le programme designe a la premiere partie lejoueurqui commence, 

indiquelecasecheantsilacolonnejoueeestremplie.prendencompte 

les parties nulles. 



Z%8A 



40 REM I HIT. VARIABLES 
55 LET Z=6 
60 LET Y«7 
65 LET l>6 
70 LET N«8 
75 DIM ftCZ,Y) 
79 REM TIPAGE fill SOW 
30 PfiHO 

85 LET J-JNT I RMW2>*J 
100 CQSUB 1000 

104 REM IHIT. JEU 

105 FOP L-l TO 6 
136 FOR Y"\ TO 7 

107 LET FKL.K>0 

108 NEXT K 
103 NEXT L 
110 LET P«0 
113 FOP L-5 TO 10 
11G PRINT FiT L-12," 
117 NEXT L 

116 PRINT AT 9,28K U " 
115 FPIMT FiT 14,1;" 

120 PRINT FIT 16. 1." 

121 PRINT AT L6,|J" 

199 PE11 CHANGEMENT tvE JOUEUP 

208 LET J=J*1 

201 IF J-3 THEM LET j*| 

262 IF >1 THEN LET J»="0" 

203 IF J-2 THEN LET J«-"X" 

239 REI1 AFFICHACE JO'JEUR 

246 PPIHT PiT 8,23.CHR« 'CODE J8+128) 

249 PEM PROCWW€ PRINCIPAL 

250 LET Z-0 




260 


INPUT Y 












265 


PRINT FIT 14,1 












266 


PRINT FiT 16,1 












276 


IF Y<1 OR Y>7 


'THEN GOTO 260 










280 


LET Z=Z*1 












290 


IF Z=7 THEN GOTO S30 










300 


IF CFKZ.YJ-l 


OR HCZ,Y)='2i THEN 


GOTO 236 








310 


LET A(Z,Y>J 












326 


GOSUB 2006 












321 


LET P=P+1 












3?i 


IF P=*42 THEN 


GOTO 920 










328 


REM PROGRAMME 


DE TESKBCDE) 










329 


REM TEST B 












338 


LET B=0 












348 


LET ZZ=Z-1 












336 


LET YY*Y 












366 


LET ZZ=ZZ+1 












376 


LET B=B+1 












373 


IP (ZZ+1X1 OR <ZZ+1»6 OR YY< 


OR YY>7 


THEN 


GOTO 


390 


386 


IF FKZZ+l.YY 


=J THEN GOTO 360 










396 


LET ZZ*ZZ+1 












406 


LET B=B-1 












416 


LET ZZ=ZZ-1 












426 


LET B=B+1 












425 


IF C2Z-1X1 OR <ZZ-1»6 OR YY< 


OR YY>7 


THEN 


GOTO 


440 


436 


IF fl(ZZ-l,YY) 


-J THEN GOTO 410 










448 


IF B>=4 THEN 


GOTO 930 










449 


REM TE^.T C 














LET C-0 












460 


LET ZZ=Z 












4 70 


LET YY-Y-1 












4*0 














490 


LET C-C+l 












455 


IF ZZ<\ OR Zl 


►6 OP i YY+i XI OP 


CYY+1»7 


THEN 


GOTO 


518 


T-Ou 


IF fKZZ.YY+1 


•J THEN GOTO 4S0 










516 


LET YY*Y+1 












326 


LET C-C-l 












330 


LET YY-YY-I 












540 


lf;t c«c+i 












545 


IF ZZ'l OP ZZ 


>6 OP • YY-IX1 OR 


CYY-1 »7 


THEN 


GOTO 


566 


330 


IF R<ZZ,YY-I 


-J THEN GOTO 538 










568 


IF C>"4 THEN 


GOTO 980 










569 


REM TEST t- 












',.;■, 


LET [-6 












580 


LET ZZ"Z-I 












596 LET YY-Y-1 













) LET ZZ-ZZ+1 

I LET YY-YY*1 

I LET C«D*1 

J IF <2Z+1X1 OP (ZZ*1»6 OR (YY*1)<1 OR 

'+1»7 THEN GOTO 646 

I IF Pi'ZZ'l.YY-M :-».." THEN GOTO 600 

I LET YY»Y*1 

I LET ZZ-Z*1 

I LET V'0-\ 

16 



670 LET YY-YY-1 

680 LET 2Z=ZZ-1 

690 LET D=[>+1 

695 IF CZ2-1X1 OR <ZZ-1»6 OR (YY-1X1 OR 

CYY-1»7 THEN GOTO 710 

700 IF FKZZ-t,YY-l )-J THEN GOTO 670 

710 IF D>=4 THEN GOTO 988 

719 REM TEST E 

720 LET E=0 
730 LET ZZ=Z-I 
740 LET YY-Y+1 
750 LET ZZ=2Z+1 
766 LET YY=YY-1 
776 LET E=E+1 

775 IF CZZ+1X1 OR CZZ+1J>6 OR (YY-1X1 OR 

<YY-1»7 THEN GOTO 790 

780 IF f,(ZZ+l,YY-l)=J THEN GOTO 750 

790 LET ZZ=Z+1 

806 LET YY-Y-1 

310 LET E-E-l 

820 LET ZZ=ZZ-1 

830 LET YY-YY+1 

840 LET E=E+1 

845 IF (ZZ-1X1 OR <ZZ-1>>6 OR (YY+1X1 OR 

(YY+1)>7 THEN GOTO 860 

850 IF FKZZ-I.YY-M >=J THEN GOTO 826 

860 IF E>=>4 THEN GOTO 980 

370 GOTO 200 

879 REM S^P COLONNE REMPLIE 

380 PRINT FIT 14,2; "colonr,e»-enP 1 1#" 

890 PRINT FIT 16,2; "CHOISISEZ UN HUTRE NUMERO" 

910 GOTO 250 

919 REM S'P PNRTIE NULLE 

920 PRINT FIT 14,2. "LR PRRTIE ESI TERMINEE..." 
930 PRINT FIT 16,2, ".. .SUR UN SCORE NUL. 

935 FOR G-l TO 40 

936 NEXT G 

939 REM f>FF[. PARTIES GRGNEE3 

940 PRINT AT U,29>H 

941 PRINT RT 12,29>M 
949 REM NOUVELLE PFtRTIE 

930 PRINT RT 18, 1 * "VOULEZ-VOUS PEFHIRE UNE FflRnt" 

960 INPUT fi« 

970 IF R*(l)-"0" THEN r.rjTQ 105 

975 STOP 

979 REM FIN DE PRRTIE 

980 PRINT RT 14,2>"LE JOUEUP ".CHR« (CODE Jt*128)i 
•' R GflGNE LR PRRTIE" 

985 IF J-l THEN LET M-M*l 

986 IF J=2 THEN LET N-N»l 

987 PRINT RT 16, 13; "br<tvo" 

988 GOTO 940 
999 REM S'P PRESENTATION DU JEU 

1000 FOR 1-1 TO 30 

1816 PRINT RT 0.1. """.AT titll'm* 



atutr [)■<<!>• IK 



CANARDOS 



La chasse est ouverte ! a vos fusils, !es canards volent vite 
cette annee ! Fines gachettes ou debutants ! A vous de 
choisir : fusil aunou deux coups. Mais attention, neprenez 
pas !es soucoupes volantes du Docteur COUAC pour des 
canards sauvages ! 

Jean Jacques MEVEL 







CflNfiROOS 


ROUTINES 


MACHINES SON 


7265C 


aeefl 


LD 


B, aofl 


7 .-■ * 5 Z 


C5 


PUSH 


BC 


"jss: 


110A00 


LD 


DE ,00010 


':r.5c. 


21320O 


LD 


HL ,00050 


:-■.,:.■ e. s ■!■ 


E5 


PUSH 


HL 


■'.-£--0 


D5 


PUSH 


DE 


52661 


CDB503 


COLL 


00949 


- - E- S .1 


Dl 


POP 


DE 


:-i-os 


El 


POP 




:■■-.-: ss 


2a 


DEC 


HL 


?i'667 




LD 


R,H 


3.-568 


B5 


OR 


L 


-2569 


20F4 


JR 


NZ ,L7F93 


"■,.'6 7i 


CI 


POP 


BC 


:-2672 


10EA 


DJNZ 


L7F8C 


■ a674 


C9 


RET 




"■■2675 


O0 


NOP 




'■3ZTfi 


BO 


NOP 




32877 


00 


NOP 




"^573 


00 


NOP 




. , .367-j 


00 


NOP 




:'2 5dQ 


O60A 


LD 


8,U0R 


7 ;■: s 3 .7 


cs 


PUSH 


BC 


i.?c5: 


11OS0O 


LD 


DE , OO003 


-..:■ e s b 


OlQflaO 


LD 


BC, 00010 


7 .-_■ b e ■:■ 


2100O0 


LD 


HL ,00000 


7 2 592 


C5 


PUSH 


BC 


■■ 7_ 593 


D5 


PUSH 


DE 


3259 4- 


E5 


PUSH 


HL 


:-.z-B9 5 


CDBS03 


CALL 


0O949 


■ ,"■ <5 9 5 


El 


POP 


HL 


. ." ■■: :. :■ 


Dl 


POP 


DE 


■■■57CO 


CI 


POP 


BC 


,"701 


23 


INC 


HL 


: 5702 


OB 


DEC 


BC 


''■Z'7B3 


78 


LD 


R,B 


32704 


Bl 


OR 


C 


3270S 


20F1 


JR 


NZ ,L7FE4 


32707 


CI 


POP 


ec 


32705 


1GE4. 


DJNZ 


L7FRA 


727 ID 


C9 


RET 




7S711 


O0 


NOP 




72712 


00 


NOP 




■;■■ .?7i3 


00 


NOP 




337X4 


C3 


NOP 




7-27 15 


OO 


NOP 




32716 


00 


NOP 




32717 


00 


NOP 




32715 


00 


NOP 




.s-:7ib 


00 


NOP 




32720 


0604 


LD 


S,tt04 


7,7 722- 


CS 


PUSH 


BC 


3 .7 7 '■ -■■ 


316105 


LD 


BC ,01360 


~ 7J 7 2 c 


11010O 


LD 


DE ,00001 


■■5 775 


CS 


PUSH 


BC 


-■S7 3C 


El 


POP 




32731 


6E 


LD 


L, (HL) 


7.2732 


2600 


LD 


H, 800 


32 73 J. 


D5 


PUSH 


DE 


32733 


CS 


PUSH 


BC 


7- 2 7 3 E 


CDS SB 3 


CRLL 


00949 


7 3 7 3 3 


BioRea 


LD 


EC ,00010 


3 2 742 


as 


DEC 


BC 


32743 


7a 


LD 


A,B 


32744 


Bl 


OR 


C 


T2745 


20FB 


UR 


HZ.L7FE6 


32747 


Ci 


POP 


BC 


72743 


Dl 


POP 




■' 2 7-13 


OS 


DEC 


BC 


327313 


73 


LD 


R,B 


737 753 


FE03 


C-P 


«03 


■■2 75 3 


20E6 


JR 


NZ,L7FD9 


■7755 


CI 


POP 


BC 


32756 


10DC 


DJNZ 


L7FD2 


:■■ 2 733 


C9 


RET 




327S9 


00 


NOP 





GO SUB 950 




SPECTRUM 



GO SUB 9000 
CLS : GO SUB S 
LET n =U 



■■ ; ar si 



",fiT 21, 



20 GO _ _ 
300.' PRINT AT 21, Z 
RL "O": LET £ c =URL "a" 

30 GO TO 6900 

35 LET L =USR 3433: PRINT «0;"l 

otal: "iSC 

36 REM USR 3433 efface i e bas 
de l ' ec ran 

39 REM boucle principals 

40 FOR f =0 TO 29 
50 LET I S=XNKEVS 

BO IF IS="5" THEM GO SUB 2O0 

73 IF (. S = -'S" THEM l3G SUB 253 

30 IF l*="0" THEN GO TO 300 

1O0 PRINT RT h , f ; INK e ; " W- 1 ' 

HO NEXT f 

120 PRINT RT h , f ; " ".- LET n =n + 
1: IF n>=20 THEN GO TO 8210 

130 GO TO 30 

199 REM depiacemenl fusil 

200 IF Z)=16 THEN LET 
210 PRINT RT 01,2+3;" 

Z ; "«1»" : PLOT Z43+8.7 

220 RETURN 

2SO IF :-16 THEM LET 

260 PRINT AT 21,z-8;" 
z , "-i-" : PLOT 2*8+8,7 

270 RETURN 

299 REM feu 

300 IF b=0 THEN GO TO 380 
310 LET b=b-l 

320 PLOT Z #8+8, 7: DRRU 0, 16-?.- R 
RNDOMIZE USR 3,-: ■-, 
0, -167; PLOT OUER 1; 2 »S + 8, 174 

324 REM louche 1 

325 IF f=Z AND fOi THEN GO TO 
3000 

330 IF i=Z RND r<>! THEN GO TO 
3000 
_350 IF f =Z RND r =1 THEN GO TO 7 

~360 IF f<>Z RND r<>! THEN GO TO 
100 

370 GO TO 450 

380 IF r ', >1 THEN GO TO 100 

390 GO TO 450 

399 REM rouXiT.e: OUNX 

400 FOR fifl TO 29 
4 IO LET L*=INKEY* 

420 IF L*«*'S" THEN GO SUB 200 
430 IF t.$ = "3" THEN GO SUB 250 
440 IF li«"0" THEN GO TO 300 
4S0 PRINT AT h , f ; INK e ; '• A" 
460 NEXT f 
470 GO TO 120 
7499 REM tOWCbe OUNI 
75® 2 IF- c = l--T.HEN -LET- C C-=C<--i2C 
7510 IF e=2 THEN LET SC=SC-50 
THEN LET S C =S C - 100 
RND e<>5 THEN GO TO 



3210 
3220 
3230 



FOR 9=1 TO 7 

PRINT RT h.fj INK g. '^" 

NEXT 9 

BEEP 1,-30. PRINT P.T H , f , - 

GO TO 30 

REM louche 

PRINT RT h , f , INK e; FLR5H 

PRINT RT h,f+2; INK e:"Coin 

h+i, r +4, "Coin" 

RANDOMIZE USR 32720 
RESTORE 3040: FOR 3^0 TO 6 .■ 
■ \ : BEEP ,fll,X: NEXT a 
DATA O , 2, 4, 6, 4-, 8,2 
PRINT RT h,f," ";RT H 

IF e=l THEN LET s C =S e + IB 

IF e =2 THEN LET SC = 

IF e =3 THEM LET »C =: 

IF e =4 THEN LET s C =: 

IF e=5 THEN LET 5 C = : 

IF SOBSC THEN LET I 

IF n>=20 THEN GO TO 3210 
LET n=n+l: GO TO 30 



C +20 



sc 



93.30 PRINT RT 0,S, INK 4, Ouoi d 

91M PRINT RT 4,12,-C-esi la" 
--I4.0 PRINT RT 3,0, INK 2, PAPER 
S, C.HASSE RUX CANARDS 

3130 PRINT RT 14,0, INK 2 , " .r . . . 

-...20 Pt 5 | A. -SO PIS" 

9100 PRINT RT 18,0, INK 4,"^- 

^..lOO Pis I "; rLRSM 1;"A", FLfl 

SM o, ink 7,-.,. la chasse" 

9170 PRINT RT 20,0, INK 5; FLASH 

!i **■ i FLASH 0," SCO PU I 

*; FLRSH f; "«0Vj FLASH O, INK 7 

....est finie" 

3130 PRINT RT 12,0, INK 1, - -mt . . . 

.... 10 P tS I -— . . 3il Die" 

9190 PRINT AT 1 
... .50 PtS I -=-. 

= 20O PRINT B0, ■' 



i INK 3, "-* 
-10O PtS" 
isez SPRCE 



REM 



3250 PRI 



PRPER 0: CL5 



6; PRPER S, 



CLS 

9220 PRINT Tfle 4;"Devant I'tiang 
aux canards, vous dispose; de 3 
pa Lotibi e res . " 

9233 PRINT -;TRB 4, INK 3,-Pour 
passer de I'une a I'autre.u 

IS Use: les. touches iS.-. et <e>, -. 



ppo r 

JT INK 2; PAPER 



isp 



>0 THEN PR 



3275 IF SC 



THEN PRINT 



3230 INPUT "UNE AUTRE PRRTIE 
THEN NEU 



WbtdT"PF(ZFii' ~;-i7Re «.;~'JCttn' *;-Si 
■jo us disposer: de 2 coups 

r obdUrt ChilUt CRNRRO" 

9259 rem dessin canard 

9260 INK 2: PRINT RT 15 , 18, "J 
'■;AT 16,13; "■■**; FLR5H -<•■■- ■■■ 
ASH 0,"'B";RT 17,12; " — 
9278 PRINT RT 13 , " ~ 
•'; RT 19, 11, "■■■ — i 
5230 PRINT RT £ 

i>i3S PRINT 



Pres 



e: SPRCE pou 



329 
3 2 3 ■- 
3300 
3310 



GO TO 20 

REM 

PR IN 



INK 4; BRIGHT 



9239 REM bee 

929P INK 1: PRINT RT 17, 

RT 16,22; INK 6;-«fc" 

9300 PAUSE SO 

9310 IF IWKEYS-::-"" THEN 

30 



;o to 94 



3330 PRINT RT 17, 



3340 PRINT RT 18 



33SO -PRINT- -RT. 



ia,? 



INK 4; BRIGH 



iff 
BRZS" 



IMK 6, BRIGH 
INK 6, BRIGH 



7520 IF 
7530 IF 

7600 
7S40 FOI 
UT 254 . 16 



3360 PRINT RT 7, 10; 
T 0; "* 2 X ^ 

8370 PRINT RT 8,11; 

T 0; *** « *■ ^ 

3330 PRINT RT 13,3; INK S; 
T 0; "iTt i-£ ^ 

3390 PRINT RT 14,5; INK 6; 
T 0; ■,£• ■&■ 

3699 RETURN 

3900 REM routine aleatoire 

3905 RANDOMIZE 

8910 LET e=IMT (RND+5J+1 

3920 LET h=e*3 

3930 LET r =INT (RND + 6) 

693S LET b=d 

3940 IF r<>l THEN GO TO 35 

3950 GO TO 400 

3999 REM initialisation 

" " RESTORE 9010: FOR f =0 



93S0 PRINT RT 16,22. INK 6 ; " — " ; 

RT 17,22; INK 6; "■«"" 

a?30 RANDOMIZE USR 32650 

9340 GO TO 9390 

9330 CLS : RETURN 

940O CLS .■ PRINT RT 10,0, PAPER 

6; INK 2; " ETES-UOU& UN DON CHA 

55EUR ? 

9410 PRINT RT 14,4; "O pour OUi _ 

_ N pour non" 

9420 LET 1|>INKEY« 

9430 IF K*="0" THEN LET d =1 

9 440 IF * * = "n ■' THEN LET d =2 

9450 IF t. *< > "O" RND ». * ( >"n" THEN 

GO TO 9428 

9460 PRINT M;"C'tSt Par li ! " 

9470 PAUSE 50 

9490 CLS .- RETURN 

9439 hem routines nachine son 

9500 RESTORE 9510: FOR t =0 TO IS 
3: READ S: POKE 32650tt ,S: NEXT 



1 TO 10: 
_ . OUT 254 , 
7350 BORDER 2: P&PE 
INT INK 6; ■■ L ' abOD 
ur COURC ,don t le 
ouwe pre-s d€- I'eta 
Piege unede ses 

7560 PRINT INK 6; ' ' 
- B. .ts.i *.. .(>.•■• r- -tOUM- ■'. 

7570 PRirrr ink s; ' ' 



7530 PAUSE 400: GO TO 321 

7599 STOP 

7600 IF SC<=8 THEN LET SC 



READ 



POKE 



'explosion 



H010 DRTR O,0,0, IS, 95, 63, 31, IS, O 
, 24 , S5 , 124 , 248 , 240 , 224 , 192 
9020 DRTR 1,1,1,1,1, 113 , 2SS , 2S5 
, 128 , 128 , 128 , 128, 123 , 142, 2SS ,255 
9030 DRTR 0,0,43,116,127,255,255 
, 2SS,255 , 126,60,24, 16, 16, 16, 16 
9040 DRTR 16 , 24 ,56 ,60 , 60 , 60,62, 1 
26, 126, 126,255,254-, 120, 16 , 16 , 16 
9O50 DATA 0,3,7,10,127,255,127,0 
, O, 192 ,224 ,30 ,254,255,234,0 
9060 DATA 4,8,16,145,86,64,56,12 



9510 DATA 6,10,1-97,17,10,0,33 
,0,229,213,205, 131,3,209,225,. 

124 , 181 ,32,244 , 193 , 16,234 ,201 

0,0,0,0 

9520 DATA 6,10,197,17,3,0,1,11 
,33,0,0, 197,213 ,229 ,20S, 181 ,3 

5,209 , 193 ,35 , 11 , 120 , 177 , 32 ,24. 

93 , 1 6 , 223 ,20 1,0, O,0, 0,0,0, O , O 

9S30 DATA 6,4,197,1,100,5,17, 
, 19 7 ,22S, 110 , 38,0,213 , 19 7,285 



SO 



220 ,201 



230 , 193, IB, 



?09O LET SC =UAL 

"0" : LET z =UAL 

'5110 BORDER O: P 



LET «SC=UAL 



9540 RETURN 

9990 REM 

9991 REM 

9992 REM 

9993 REM ;-. t : J (. f?hi jk 

9994 REM 

9995 REM t /- J L fe T ifrfW* 

9996 REM 

9997 REM 
9993 REM 

9999 CLERR ; SAUE 'CRNRRDOS" LIN 

E. 1;. ..3A'.'E .'.'C/C?7;r.V'':OPC 3.1 S3* , ; 
08 ■ 



* 



Suite de la page 15 



COMMODORE 64 



2305 


IF R>15 OOTO 3048 






2919 


I=R-IF IO GOTD2S09 






2??f! 




■.■■li" 




2939 


TDT=0 






2948 


FOR M-1 TO 12 






2959 


X=»P(I,M> GOSUB 13000 






2960 


PRIMT' , ir.Mf^M>,X* 






7? 70 


TDT=TDT+DP<I,t1) 






2980 


HEXT M 






2985 


X=TPT : GOSi.iB 135^9 






2990 






■mm 


pp I iit " nap i»P >»»»»»i«B««»r r if . 


-S=SU1TE 


3010 


GET Pf:]F R#--S" GOTO 2008 






3920 


IF P*="C" THEN GOSUB 12009 


GOTO 


2920 


3030 


GOTO 3819 






3040 


IF R>29 GOTO 3280 






?f)7"n 
30S0 
3070 


I=P-15 


>,"«' 




TBT=9 




3033 


FOP 11=1 TO 1,? 






3099 


X«RR<I,n) OOSUB 13080 






3109 


PRINT"tr.H*CH),Xf 






3119 


TDT=TDT+RP<I.rl> 






3120 


HEXT M 






3125 


JOtTBT : OOSUB 13999 






3139 


FPIH["ll".' , HarOT81_ FiNMEE ";X« 




3149 




= COP't 


-S=SUITE 


3150 


GET P*IF R^= ,, 3' , GOTO 2909 






3160 


[F R*»"C THEM GOSUB 12009 


GOTO 


3060 


3170 


GOTO 3159 






3200 


I=P-28IF I>18 00TG2899 






3210 


pr un'^rnnwnmr ■ DV< < I 


. - a" 






TDT=9 






■ikvt 


FOP 11=1 TO 12 






3249 


»DV I ,t1> G03UB 13809 






3259 


PRIMT">r,ri«(rl>,X» 






3269 


TDT=TDT+DV'I,I1> 






3270 


HEKT M 






:;■,"■■ 


JOTDT'QOSUB 1H008 






3289 


PRlNT"ll"."llSTOTfiL flIIHEE ".X« 




3281 
3282 


PP I -i'>MMI»»Pf»»»lll 

GET Pf IF R*e"S" GOTO 2990 


=COF'V 


-S=5.UITE 


3283 


IF Pt='T" THEN OOBUB 12998 


OOTO 


3210 


3284 


GOTO 3292 






PEM n 


*♦ 




'■.u.- 


rem ** point tun ntois nois *• 




I'm 


REM ♦« 


•• 




:-M4 


PEM M......*......«.,..MI.>t 




tsie 


IF IM-1 OOTO 1520 






351 3 


F-c I H f " nrti npi:r-,i- 1 Bi. R , li. FflDi 


IH1TIHLIS 


3515 


FOR I«l TO 3009 NEXT 






-,]:■ 


OOTO 158 






■■„-v: 


IF PP-l OOTO 1936 






•■:'[ 


I'Ritn-'riniMKr/.iui t .( ki vision ■ mom hhtpee 


1922 


FOP J-l TO 1000 NEXT 






i',7< 


OOTO 150 







3T-30 
3535 
3548 
3545 
3546 
3347 
3558 

3569 
3565 
3579 
3575 

3585 
3586 
3590 
35?5 
3-596 
3600 
3602 
3685 
3687 
3610 
3612 
3615 
3628 
3622 
3625 
3630 
3636 
3648 
3645 
3646 
3648 
3650 
3655 
3658 
3660 
3665 
3668 
3678 
3671 
3675 
?639 
3685 
3698 
3695 
3696 
3780 
3702 
3795 
3797 
3718 
3712 
3715 
3729 
3722 
3725 
3739 
3736 
3748 
3745 
3746 



PRINT'TIILE TABLEAU OUI VA SUIVRE FAIT LE POINTW" 

PPINVSUP TROIS MOIS 

IHPUT'-iWHOM DU TROISIER M0IS";P* 

FOR (1=1 TO 12 

IF Mt(M>=R* rjrjTO 3568 

HEXT M 

PRIHT-'OIOH COMPPIS.ENTFEZ LE MOIS EH LETTRES" 

GOTO 3549 

IF M>2 THEN ZZ = (1-2 GQTO3570 

2Z=I 

FRIHT'T] POINT SUP TROIS MOISM 

PRINT"*i»IMPREVU**l»l"; 

FOR 1=22 TO ZZ+2 

P*<I)«" »-H1t(I)+" 

P«tI>-LEFT*<P*<I)i?) 

HEXT I 

PRINTP*<ZZ>J" •■■Pt'ZZ*l>." - ,PS(ZZ+2> 

PRINT 

PRINT" PECETTES 

FOP I=2Z TO ZZ+2 

K-PRCIJ GOSUB 14980 

PPIHTX*. 

NEXT I 

PRINT 

PRINT" DEPEMSES " ; 

FOR I=ZZ TO ZZ+2 

X»PD(I>+IiV GOSUB 14689 

PPIHTXf; 

NEXT I 

PRINT FRIHT-SOLDE:" 

PPINT-DU MOIS "; 

FOR I=ZZ TO ZZ+2 

6P<I>"PR<I>-PTKi '-DV 

X=SP<I ) G03UB 14890 

PRIHTXJ; 

NEXT I 

PRINT 

PRIHT-'DEPUIS DEBUT fiH" , 

FOP J=9 TO 2 

TPT-0 

FOP 1=1 TO ZZ+J 

SP'I '=PR'I .>-PD(I)-DV 

TDT-TDT+SPU) 

NEXT I 

x"tdt; gosub 14000 

print;-:*. 

next; 

PPINI"-»»«I ♦♦REEl.**HIW' 

PRINT" RECETTES "; 

FOR 1=ZZ TO ZZ+2 

»P(1'I> OOSUB 14998 

PRIHTXfJ 

NEXT I 

PRINT 

PPIHT" DEPEHSES 

FOP I=ZZ TO ZZ*2 

x-RD-:i)+vtiM' OOSUB 14000 

PRINTXf- 

HEXT I 

PRINT FPINT'-SOLDE " 

PPINT'-tnj MOIS 

FOP I-ZZ TO ZZ+2 

8K(I)aRH(I)-RBCI>-VH<I) 



3748 X-SR<I>:00SU8 14990 

3750 PRINTXti 

?755 NEXT I 

3758 PRINT 

3768 PPIHT--DEPUIS DEBUT AN": 

3765 FOR J=8 TO 2 

3768 TDT=0 

3770 FOR 1=1 TO ZZ+J 

3771 SR'I -.=prKI >-RIK t)-VM<I > 
3775 TDT=TDT+SR<I) 

37S8 NEXT I 

3785 X=TDT'G03UB 14880 

3798 PRIHTXJ, 

3795 HEXTJ 

3S08 PRIHT 

3810 PPIHT"»ECART '/," 

3815 PRINT" RUK PREVISIONS" 

3820 PRINT-'MOIS "; 

3825 FOR 1-ZZ TO ZZ+2 

3826 X"SR(I>-3P<I> GOSUB 14990 
3838 PPIHTX*; 

3835 NEXT I 

3836 PRINT 

3848 PPINT-DEFUI3 DEBUT AN"; 

3841 FOR J*8 TO 2 

3842 TDT=8 

3843 FOR 1-1 TO ZZ+J 

3844 TDT=TDT+-?P(I)-SPtP 

3845 HEXT I 

384.6 X=TDT GOSUB 14990 

3847 PPIHTX*. 

3848 HEXT J 

3868 priht friht-:h S>i:OPV-S=SMITE" 

3865 get p* if r»="s" ooto 150 

3866 if r*0"c" ooto 3865 

3867 GOSUB 12999T,riT03570 

4999 PE« ♦♦♦**«♦**♦♦♦♦♦*♦♦♦♦♦♦♦♦*♦«♦• 

4901 PEM «• «• 

4902 REM »» ECART K AUX PREVISIOHS •♦ 

4903 REM «• ** 

4084 REM ♦**»»♦*♦»«♦***•♦*♦*«♦•*♦•♦*• 
4919 IF FR»! GOTO 4030 

4020 PRIHT-THTREVISIflNS HON FHTPEES 

4930 FOR AT =1 TO 3800 NEXT 

4940 GOTO 159 

4950 PR INT "Tin ECRPT PAR RAPPORT AUX PREVISIONS 

4955 PR I NT "BUI POUP UN MOIS DONNE 

4963 PRINT"W2 DEPUIS LE PL BUT DE L 'ANNEE 

4970 PPIHT-KI PFTrmp fill I1ENU 

4075 FRIHT-wmrwiMMfMMISEUTREZ VOTRE CHOIX 

4088 GET P« IF Rt-"3" OOTO 139 

4085 IF RI-"2" OOTO 4180 
4890 IF Pt-"1" GOTO 4290 
..|lv.,; ..in ili w 

4180 REM ** ECflRT DBPUI9 PEBi.'I AHNEE»« 

4110 FOR LM-1 TO 12 

4120 IF RfKLMJ-0 OOTO 4140 

4130 NEXT LM 

4149 LM-LM-1 



* ( 



a suivre 
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BATAILLE DE CHARS 



Un super terrain de jeu, du graphisme elabore ou deux 
chars se livrent un combat sans merci. 

G. D'lLLIERS 

Moded'emploi : 

Sur I'ecran s'aflicrie un champ de mines. En haul s'affiche le score de 

chaque joueur, (Aupr6alable, unrappel des regies du jeu a eteaffiche). 

Achaque extremitese irouve un charet la base (representee parson 

drapeau). Lecharamericainestcommandeparlamanettel.lesovieti- 

que par la manette 2. 

Pour depiacer voire char, utilisez votre manette de la (aeon suivanle : 

Le bouton TIP. se trouvant vers vous. 

Chaque char se deplace dans 8 directions ou tiret. 

Lechardanssesdeplacementsaccelereprogressivement(8vitesses). 

Pourtirer. appuyersurle bouton TIR. L'obuspeut disparaitre d'unc6te 

etreapparaitredel'autre. Ilnepeutdetruireunemine. Onnepeuttirera 

repetition. 

Si un char atteint la base adverse, ilgagneun point et on entendlepelo- 

ton d'execution fusilier le conducteur adverse. 

Chaque tois que le char adverse explose, lejoueur gagne un point. 

Si I'un des deux joueurs atteint 4 points, le jeu se termine. 

REMARQUES : Modifications a apporter pour uliliserle clavier comme 

manettes : 

-suivezies instructions de (a lignel 730 (creerune nouvelle ligne 800). 

C'est dans cette version untquement, que le sous-programme SUB 

JOIST (I. Y X, T), debutant en ligne 1760 sert Sinon, il peut etre oublie. 

Utilisez le clavier comme manettes, sachant que le joueur 1 utilise la 

partie gauche du clavier comme suit : 

O": bouton tir. 



^ pi] rj'' 

Les 8 directions 



s 



\] A [§]' 

-GO E- 

Les 8 directions 



& 



Ecriture du programme : Certaines lignes du programme font plus de 
140 caracteres. En ce cas, complete? la ligne en tapant ENTER puis 
FCTN "REDO" et ecn'vez les dernieres instructions. 




630 CALL VCHARM, 1.32,48)ii C«LI '. HARU, 1.32,48) 

- * ■ ftl i ■- HA1 14. 2.?7)n CALI HI HARI17, ,97) 

630 CALL HCHAR14,32,97)>i CALL HCHAR(1B.32,97J 

660 CALL HCHARtB. 11,971 

6"- CALL HCHARI ! i . 11,97) 

6BO • .illichiiio d««. b*sirG 

690 CALL HCHAR<14,2,SB>i.: CALL HCHAR< 14. 3. IOS) l s CAU MCMAI 

"-■■< CALL HCHARI 14,31, 10*,) ii CALI HCMAR( 14,32,107})) CAU i 

"■*■ I ' ' ' afflch»g« iii-E chari 

rso CAU ■«.-■.■.■■. 
fqi ■ i ro 2 

740 CALI SPRITE (HA, l40,4+4"A.fl4, 10+tA-l J »230) 

730 ■' ■■■>' -" -4 : : W(AI=4 



■',;'■ 


NEXT .. 






















'H'"p DISPLAY ATU, 1) iUSING 
90 DM ERROR 1280 : : DT(l) 
BOO FUR D-l TO (E99 : : FOR 
A1 ruri'.H I . I24-3*X+V)i; T-0 
1 KEVf I, r.Sli: JQJ-0 


DT 
1- 


21-1699 


« ■ 
: J ' 
CALL 
W(l 


■lSC(l) ,9C(2: 
l,J( 1 .. 

JOVSTII, X. v) : 
-V :: J«I)-M 


i IP » 
H (4, J I 


■ 


im! n cai i_ = 


910 


CALL COINCtALL.CO) : : CAU 

F CO OR G 96 THEN CALL WO 


POST l Kill 




VI ; : 


CALL Gt> 


ARi <u- 


l./B. 

goio 


BSO 


1/8.81 



820 IF i IB fHEN CAI i SPRIT£(*I+2. I 24, I0,U*8+2»W< I ) , V- 
DTfI>-0 ELSE IF 0»0TfIJMO THEN COLL DELSPRI TE (» I *2> : 
CAU MO I [LIN!* I , '-.M I ..-*•. I ' II ! : : CAI I 50IJND<-300. - 
GOTO 790 

B40 ' Bn CAfl 'I p.:plo-,ion 

BSO CALI LDCATEt#I,U,V) 

BAO 11-' 1-1 AND G 103 01 I AND G IOS nun | ■■■■ 

B70 IF CO' THEN BOSUB 11"" ELSE IF B-97 THEN GOSUR I 

BBO DISPLAY AT ( I , t > : "Li CHAR " : mint < I • : " itxPl OSE • " 

B9o • implesion do chw 



•>■ \Q 


OA ■' 2 10 16 




.'I" 


ALI COLOR <»1 ..:■ 




940 


■ •I l S0LMDI200, 1 1". '. 100+ 

IF 'T m 
CALL DELSPRITE<»3,«4> 


0*A,6, ■■'."■ 




SC(3-I)=SC(3-I)*1 




960 


IF SCI Z- IX -3 THEN 730 




770 






980 


CALL DELSPRITE(OLL) 




790 


DISPLAY ATU. 1):USING " 


M t#"iBC(l),S 


1000 


SCIl).SC<2)-0 




1O10 


DISPLAV ATI23, DBEEP: "LE 
CALL S0UND(lOO,44O,O> 


JOUEUR "tNO«»( 3- 1)?-' 1 


\ ' '■■■ 




1 03C 


CALL S0UNDflOO|53O|O) 




1O40 


CALL SOUNDUOO, 440,0) 




1031 


CALL SOUND! 100, 660.0) 




10i>0 


call sound uoo.aao.o) 




1070 


CALL KEY(S.T.S) 




1080 


IF T=102 THEN 1310 ELSE 


F T-114 THEN 420 ELSE I 


1090 


! tir iu but 






CALL CISTANCEI4tl,*4.Dl> : 


CALL DISTANCE{»2.*3,D2 


1 110 


CALL DISTANCE(»l,tt3.D3) : 


CALL DISTANCE(tt2.»4,D4 



GfitiNEPOUR REJOUER ' 



1120 DD1-MINCD1.D3) :: DD2=MIN (I>2, D4> 

1130 IF DDKDD2 AND DD1O0 THEN 1-1 ELSE I 

1140 IF DD1 = AND DD2=0 THEN I- INT (2*RND* 1 

1130 RETURN 



i RANDOMIZE 

■ CALL SCREEN! 3: 
i FOR A-0 TO 9 
i CALL C0L0R1A.: 



BATAILLE DE CHARS ==.=«=-==-= 

2 CHARS SE TRDUVENT DANS UNCHAHP DE MINES CHOCUN DOIT DET 
DO 3*EHPARER DE SA BASE TOUT EN" 

RROTEGEANT LA S1ENNE PRQPRE. LA 

MANCHES GAGNRNTES." 

CHAR P-ERD LIME MANCHE 51 1- UN OBUS I 
S- IL SORT DU CHAMP DE MINE" 
IL IIEURTE I 'AUTRE CHOP 5- 



BISP1 AV AT (3, 1 I : 

RUIRE LE I HAI 
210 DISPLAV AT<9, 1) : 
PARTIE SE .10UE EN 
220 DISPLAY AT ( 14. 

- IL HEURTE UNE MUlE 
230 DISPLAV ;.i ' 18. 1 J : " 4- 

- I 'AUTRE INVEST!! CE OG" 

... ATI21'.4i]-EEF': -FA^SEZ FN MINUSCUI ES 
ZSO CRLl C0L0ft(3,6,l6,4,6,16,10,16,9) 
Tii' p ' ill mr?ns i on [!!?■=. tableau 
270 OPTION BASE 1 

;-W DIM SC<2),Z(21,l*(2),Jt2),DT(2J,NaM«(2) 
290 NOIM ' l ' -"AMEP H AIN " 
300 Natt»I2)-"S0VIETI0UE" 



ATTEINT 

SOM PROPRE DG 



»0 



ami i 



:.y READ At. Ei* 




J30 CALL CHAR(97.A*,58.B» 




34C FOR A-IOS ro 143 




350 READ A» 




360 CALL CHAR (A, A*) 




370 NEXT A 




380 ' panage »u jeu jcti 




390 DISPLAV AT CM. 2) PEEP: 


•■PRESSER UNE TOUCHE S 


4O0 CALL KEY(3,T,S):: IF 


MOT S THEN 400 


410 • »*flehnge '(pt. mine' 




420 CAI I. CLEAR 




430 PRINT " a ■• 




440 PRINT " * 3 




AS" PRINT " 4 <« fl ^ 




■16" PRJMI TAft! !Ri : - 'a u 




470 PRINT TAB< \4> : "* d 




4S0 PRINT -a ■< Ji * 




490 PRINT " .i n r 




300 PRINT " -. .i 




310 PRINT " ■ I 




320 PRINT " a * 




330 PC INT " a .. a 




340 PRINT " 4 




3S0 PRINT ■' .> « 




360 PRINT " * • a 




■:,;■■ PRINT " - <• 




580 PR INT " -> ^ -• 




390 PRINT " 




600 PRINT " ■> a * 




610 PRINT "* a a 




t,Z'.- PRINT : 





-v\ 



99/A* 



6^° 
&&*>* 



1190 ' vous awe; gagne ' 

1200 DISPLAV AT<1.11:"LE TAN): "f.NOM« ( 1 ) !." DETRU1T LE D.G. ADVERSE ET GAGNE •" 

1210 DISPLAY AT (23, 11 BEEP: "LE CHEF DE CHAR "fcMOM* I 3- 1 > VEST CONDAMNE POUR TRAH 

I50N." 

1220 FOR A»l TO 30 :: CALL SOUND! 100, -7,0) : : NEXT A 

1230 |«3-1 

124A DISPLAY ATM, I):RPT*1" ".561 

1230 DISPLAY AT (23, 1 1 : RPTtl" ",56) 

1260 GOTO 940 

127A ! sor-tii? des limltoa du champ tie mines . 

12B0 DISPLAY AT ( 1 , I ) BEEP: "LE CHAP 'T.NOM» ( 1 1 1," D1SPARAIT" 

1290 CALL MOTIONtDl, 0,0,-2, 0,0) 

1300 RETURN 900 

1310 END 

1320 DATA 7E99BDFFFFFD , ?WE 

1330 DATA FFFFABFFD5FFABFF 

I 340 DATA OOFFOOFFOOFFOOFF 

1330 DATA 000601 307 12B040A 

1 S60 DATA 0000000000000000 

1370 DATA 004227150S316333 

1380 DATA 1BOD0703010O000O 

1390 DATA 0O0OO0B0CO6OB0FB 

1400 DATA FCF6F6EC9BF0600O 

1410 DATA OO0O0OOO001F1S09 

1420 DATA FFO91B1F0O0000O0 

1430 DATA 0000O00000FE72FA 

1440 DATA FAFA72FE0OOOOOO0 

1430 DATA 0000000103070D1B 

1460 DATA 3363340B! 5274200 

1470 DATA 0060F09BECF6F6FC 

1490 DATA FSBO6OCOBOO0000O 

1490 DATA O1O1O1OD0F09O90B 

1300 DATA OBOFOFOFOBOBOFOO 

1310 DATA 0000OO60EO2020A0 

1320 DATA A0EOE0E0AO2OE000 



DATA EOEOEOOOOO'JOOOOO 
540 DATA OOOOOOOOOOOOOOOO 
330 DATA OOOOOOOOOOOOOOOO 
560 DATA OOOOOOOOOOOOOOOO 
570 DATA 0007040507070703 

5B0 DATA 050*04'./..;, j 

390 DATA O0FO1ODOFOF0FODO 
60O DATA D0909OF0B08OBOBO 
610 DATA 0000000 103060D IF 
620 DATA 3F6F&F37190F0600 
630 DATA '..042E-lAai02CC6CC 
640 DATA DBBOEOCOBOOOOOOO 
630 DATA 000000007F4F3F5F 
660 DATA 3F4E7F0O0O000O00 

670 DATA f .'I 818901 ! 

6B0 DATA 901 BFBOOOOOOO 

690 DATA 00060F19376F6F3F 

700 DATA IF0D06030I0< ' 

710 DATA OOCOOOSOCOEOSODE 
720 DATA CCC62C10ASE44200 



FOR 1=1 TO 2 i 



1740 'FOR D-l TO IE99 : 

LL PATTERN("I. 124-3»X*Y1 : : I < 1 ) -X :: W( 

1730 ' et ajoute; enmiite les ll 

1760 SUB JOIST! I. Y, X.T1 

1770 CALL KEV(I,TT,S) 

1780 K,V,T-0 

1790 DN Ti<2 BOSUB IB90, 1BI0, 1890, 1B20, 1 

890, 1890. IB90. 1870. 1BB0. 1900.1B90, 1900, ! 

I BOO SURE HIT 

1B10 X=4 :: RETURN 

1920 Y=4 :: RETURN 

1B30 V— 4 : : RETURN 

1SW, ■ -1 : : v = .l : : RE IURN 

1B30 *=-4 ! I RETURN 



I860 


X— 4 i! Y»-4 


:: RETURN 






: : RETURN 


iaeo 


]<=4 :• Y«<1 ; 


: RETURN 


1B90 


RE [URN 




1 900 


H" II ■■■ ■■ 1 


THEN T-1B 


1910 


RETURN 





* 



Suite de la' page 16 



Z*81 



1020 HEXT I 




1025 PPIHT ftT 0.0- ' 


P";AT 


1030 FOP 1=1 TO 20 




104& PPIMT RT I .3- ' 


1 " . AT I 


10^0 ne>;i I 




1055 PPIMT AT 21. is, 




I860 PPIIir AT 1.27. 


" M 


1065 PPU'T RT 2.2,- 


ni in 


1078 fpimi HT 3,2j' 


r-i ii' 


I07S PPIMT AT 4.2.' 




1080 PPIMI AT 5.25 




1065 FOP 1=5 10 16 




1090 PPIMT AT I. 11 


■ V . AT 


1095 NEX1 I 





p-p-i-ifci^r 
r-i ii"i-rnin r 



1105 

iU% 

1115 
.RT 1 
1500 
1510 
1520 



PPIMT RT IL, 11 ■■ " 

PRINT AI 12. 12; "1234567" 

PRINT AT 8<21»"JQUEUR H )flT 3-21; 



PPIMT AT 6.6."*";AT 7.4 

l,4."r > *"jfiT 12.6, "i" 

PRINT AT 14.2;"7rjlJLE2-V0US LES PECLES '<' 

INPUT A« 

IF A*. [,-"0" THEN GOTO 1550 

PRINT AT 14,11" 

RETURN 

PEN REGLES LU JEU 



'"jflT 11.21."T0TRL'^ 0"iAT 12.21 
RT 8-5t"*t*"jRT 9,3J"«W**»*"jflT 10.5.' 



1610 
1 620 
1 6 20 

1640 

:■ ' ■' 
1 660 



PRINT AT 14,1 
PRINT AT 16.1 
PRINT mI 18, 1 
PRINT AT 20, 1 
COSUB 1788 
PRINT AT 14.1 
PPIMT AT 16. 1 
PRINT AT IS. 1 

t-Piiir mi 20. i 



LE JEU C0NSI8T6 a alIGMEP" 
"EN PREMIER 4 PI QMS. SOIT EH" 
"VERTICAL 801 I EN HORlZONTfll " 
"OU SOU EN DIRGONRL." 

"CHHuUt JOUEUR fl SON TOUR uEVPA" 
"CHOI >lf UNE COLONNE- LE" 

■PION SE POSITIClMlotMI =.Uk LH" 

"CASE LIBRE LA PLUS BASSE.. " 

18 



1630 COSUB 1760 

1700 PRINT AT 14. Ii 

1710 PRINT RT 16.1. 

1720 GOSUB 1780 

1730 PRINT AT M.li 

1740 PRINT RT 16.1.' 

1750 PRINT AT 18.1j"0'JI COMMENCE. 1 

1750 GOSUB 1708 

1770 RETURN 

1760 FOR 1=1 TO 60 

17S5 NEXT I 

1790 FOR I-U TO 20 STEP 2 

1793 i PINT hi I.I." 

1*00 NEXT I 

1300 RETURN 

19«9 REM S/P AFFI. PION JOUE 

2088 PRINT hi ' ll-Z ',■ 11 ',.'. i* 

2010 RETURN 

1000 PEN B P iAUVI GARDE 

5-010 SAVE "PUi" 

9020 GOTO 1 



SPACE SHUTTLE 



MZ 



Vous vous trouvez aux prises avec des nations extra-ter- 
restres hostiles. II vous faudra affronter les fiotilles enne- 
mies puis passer en hyper-espace en esquivantdespluies 
de meteorites pour arriver enfin en vue du vaisseau amiral 
pour y entamer une jonction. 

Christophe LEFORESTIER 

Materiel : Ce jeu est ecrit pour MZ 700 et. utilise des codes contenus 
dans les octects 2 K qui constituent la premiere moitie de !a memoire 
morte. Ces motifs de caracteres ne peuvent etre exclusivement intro- 
duits dans I'ordinateur par Instruction POKE, en debut a I'adresse. 
Deroulement du jeu : 

Le jeu est constitue par 3 tableaux : pour se deplacer on utilisera les 
touches de commande du curseur 

- Pour aller a droite 

- pour aller a gauche. 

II est possible d'effectuer un vol stationnaire avec la touche t et, pourti- 
rer on se servira de la barre d'espacement. 

Chaque vaisseau ennemi abattu sera credite de 10 points, si un vais- 
seau etait anime le score sera porte a 100 points supplementaires. Un 
test dans les lignes 1530a 1570 vous tournira des bonus supplementai- 
res de vie en fonction des resultats acquis. Les ennemis abattus. on 
passe en hyper-espace et on peutvolontierdetnjire les meteorites en 
ajoutant au score 200 points pour les tirsreussis. Enfin, la jonction avec 
votre vaisseau amiral, il ne s'agira pas de faire de tausses manoeuvres, 
car vous perdez une vie precieuse si vous echouez. La mission remplie. 
vous jepartirez vers d'autres aventures palpitantes. 




120 ' PRESENTATION 

138 ' 

140 COLOR, ,S,0:CLS:CLR 

150 CURSOR I 3,1 :PRINT""FC3C3C3C3C3C3C3C3C 
3G3C3C3C3F6" 

160 CURSDR13,S:PRINT"CS C7* 

170 CURS0RI3,6;PRINT'ECC4C4C4C4C4C4C4C4C 
4C4C4C*C40n" 

160 FORJ=5SS10TOSS527;POK£J,232:N£XTJ:RT 
=S3248*213;P0KERT*1 , 1S:P0KERT*2, 16:PQKER 
T*3.1:P0KERT*1,3.-P0KERT.5,5:P0KERT*7,19: 
P0K£RT»8,8:POKERT*3,2l 

198 POKERT*10,28:POXERT*1 1 , 2B:P0KERT*1 2, 
12:P0KERT*13,5 

208 POKE5S707, 232 : POKE 55787-204 8, SB :CURS 
OR12,!0:PRINT":eno«n>; 18 PoWi' 
2 1 POKES5747, 240 :P0KES574?-2B48, 50 :CURS 
OR I 2, fl :PRlNT":»nr>»i», IBB Points" 
220 PGKE557B7, 1 52 :P0KE55787-284B,62 :CURS 
OR12,12:PRIMT"si««itor;t« 280 Point** 
230 CURSORS, 1S:PRINT"-» POUR PLLER n DR0J 
IE":CURS0R8, 16;PRINT"* POUR F.LLER SUR Lfi 
GAUCHE" 'CURSORS, I 7 -PRlNT"BflRRE O'ESPACE 
H.ENT POUR TIRER" 

240 F0RA=BT02BBe:NEXTH=RT-53Z48*88e 
258 FORJ=55236TO56257STEP48:POKEJ,208:NE 
XTJ 

268 fiF=53288:FORE=2T022:FOR"=8T05S:NEXT/i 
:flF=HF*40:rT!JSIC"R-EB";POKEfiF-»2B48,2B0:PO 
KEflF-4B,a:P0KEOF, 63 :P0KEflF '48*2848, !68:P 
0KEAF.48, 22 :F0Rfl*8TD38 :N£XTfl 
270 P0KEflF-t48,8:F0Rfl=8T04B;NEXTA:P0KEAF» 
2048,208:POKEflF,63 
2B8 NEXTE 

298 FORJ =56B16T056296 :P0KEJ , 208 :nEXTJ :F0 
RK=BTO2B:FORA=BTOl20:NEXTfl:PDKERT*K*2B4e 
.28e:P0KEeT*K,63;P0KERT*K*48*2a48. 168 :P0 
KERT'K.48,B 

388 POKERT*K-1'48,8;POKERT*K-l,B:F0Rfl^8T 
O120;N£XTft:POK£RT'48'K,B:FDRfl-BTO40:NEXT 
rt:P0KERT*K*2B8B, I 68 :P0KERT*K.4B, 22 :P0KER 
T .2048'K, 200 :P0K£RTiK- I , 8 
310 NEXTK 
32B nuSIC"-EB-flt- 
330 RT=B:l>T=B60*53248 

348 FDRT=1TO3:RT=RT-l8:POK£RT*2048,168:P 
0KERT , 1 33 :POKERT '40, 8 :F0W*B10I 2B:«EXTft 1 
PQCERI'2048, I68:P0KERT, 133:N£XTT 
350 FORft=0TO980:NEXTh. 
360 FOR1=0TO24:PRINT:NEXTfl 

370 - 

388 * DONNEES INJT1HLE5 



440 ' DEBUT DU JEU 

458 ' 

4GB GOSU8470:GOTOSB0 

478 F0RJ=S5456 TO 56236 

4B8 PDKEJ.237 

430 NEXTJ ^RETURN 

500 GOSUB Sl0:'GOTDS4B 

510 FORT^BTOa^CURSORT.B-PftlNTI^^J-Ca - ': 

NEXTT 

520 CURS0R2,8:PRlNTC?,2]'■*co^^'■ :CURS0R7, 

e:PRINU?,2jSC-CURS0Rl3,B:PRINT[?.2J , '->ei 

536 CURS0R27,8:PR!NT[7,2JHS:CURS0R32,8:P 
RlNTt?,2r<,i..":CURSOR36,0;PRINU7,2JUl i 

RETURN 

540 FDRX--H038 STEP 3 :PDKES34B8*X,S0 :PDK 

E5344B*X,5B:PaK£53l8B'X,SB:POKE53528'X,5 

0:POKE53S68-X,S0:POKES3r,09.X,50:POKE53rj4 

8*X,58:nFXTX 

558 ' 

560 ■ BOUCEE PRINCIPLE 

V8 ' 

580 US -3 

590 PDK£5324e*R*2»18,210:PDKE53240'R,B 

6B8 IF (R<-l68j.tR>34?) THEN R-lB;R-R<40 

• US: GO 10629 

818 R=R,[M!(RND(4»)14l ) irlUSlC'-BB-fll " 

620 UE«53248iR 

030 F0R1=UE'BB TO 5425B SIfP 80 

040 IF (U£>-S321B)»(U£<-53689) THEM R-R* 

48- u:, 

658 II (R>3I3)*(R«17) (MEM R=R- INT ( RNCJt 

40JIJ0J.IB 

i.'M ji urn/ nun e=-4» 

070 PDlTVr/lll'flH M',,H-l'O>'F'/!?48-R'204H 
,24BiP0N ', 1/111. U.'M 

OM DOBUMM '.'.uaittiH 

IVm M [ fll . t'OK I M 1 l,B , H I'Ui'l '.1/l'H.l' I'UKI '.4 



207,0:POK£54247,a - 

780 IF m*"B' THEN 01=-! 

710 IF «t="B- THEN OI-l 

720 IF Ft*="B" THEN DI»B 

730 IF Cn* = - , 'D*CTF=0J THEN TF=PF-40;HUS 

IC-F0-E- 

740 IF PF<Slt63 THEN PF=S4163 

758 IF PF>54206 THEN PF=54206 

760 POKEPF,0:POKEPF*4B,0:PF=PF+OI :HC=PF* 

2048 :P0KEhC, 2B8 iPOKEPF, 63 :H0^PF '2848+40: 

POKEHOi I68:POKEPF+40,22:POKEPF+4I,0 : POKE 

PF+39,8 

778 IF 532l8+ni=PF THEN G0SUB1 380:GOTO I 6 

40 

7BB IF 53248+ni=PF-4B THEN GOSUB1380 =G0T 

01640 

738 IF 5324B-T12-PF THEN G0SU6 I 380 =G0T016 

40 

800 IF 53246Tn2=PF-48 THEN G0SUB1 380 'GOT 

01648 

818 IF 53248'n3=PF THEN GOSUB I 360 :GOT01 6 

40 

820 IF S3248»rH=PF THEN GOSUB 1 3B0 :GDT01 6 

40 

830 IF 53748*ni=PF-40 THEN GOSUB1380 :G0T 



B5B IF S324BT6=PF THEN G0SU81 380 :G0T0!6 

48 

668 IF 5324B*n6=PF-48 THEN GOSUB1380 :G0T 

01648 

870 RETURN 

888 IF UflIi=B THEN I 36B 

838 P0KEPFt4B,B 

908 IF PF=S3248*R THEN G0SL1B1 3B0:R=448* 1 

NTCRNDC4BJ*5B) 



918 
928 ' 
930 ■ 



REUflNCHE 



940 GOSUB350:GOTO!0Z0 
950 POK£PF'2088,168;POKEPF'4B,22 
960 IF UJ<=0 THEN CURSORI 2, 1 5 =PRINT "F IN 
OE Lfi PflRTIE":CURS0R4, 1 7 :PRINT"TflPER SUR 
UNE TOUCHE POUR REJOU£R":FORFI=BIOI200:N 
EXTft = lF SOUS THEN MS»SC:SC=0 
378 IF l»K=B THEN GETI* = IF [('■'■"THEN 970 
9B0 IF £UI<-a)*(I*0") THEN GOTOI40 
990 RETURN 

100B ' 

1010 ' TIR ENNEHI 

1028 ' 

1B3B IF U£<=53663 THEN 1158 

1B4B P0KEI-8B,B 

1858 IF PEEXClt40H>8 THEN GDSU81 388 :D0T 

0590 

1060 IF TFO0 THEN 1880 

1078 GOTO 1 I 18 

1088 IF TF-4B=I THEN POKEI-80, :P0KETF-4 

8,0:GOSU6140B:GOTO1428 

1na8 IF IF-4B = I'40 THEN POKE 1-90,8 :P0KET 

F-4B,0:GOSU814BB:GOTOI428 

1100 IF TF-48=I-8B THEN POKE I-8B, 8 =P0KE1 

F-40, 8 :&0SLiB I 488 : GOTO I 420 

1110 IF 1>54I6? THEN POKEI-'rB.BiGOTOlH 



1120 IF PEe<(I'BB](>0 THEN G0SU91 383 ;G0T 

0590 

1138 P-1.204B:POKEP,176:POK£I,!33' 

1 140 ' F0£OF_BECEflE0EaE0EeE8E0EeEBE0E0E0Ea 

EOE^EeEBEeEOEBEeEaEBEBEBEBEBEaEBEB 

1 158 HD=PF'2048-4HiPOKE«O, 1 6S :POKEPF'40, 

22 :P0KEPF-1-4B,B:P0XEFF» I '48. 8 

II 60 G0SUB*i3B:GO5U869B - 

1170 IF TFO3360 THEN POKETF , 0;TF = B 

1 IBB IF TF=8 THEN 1 3BB 

1190 IF PEEKCTF-4BJOB THEN P0K£!-8B.B:& 

010 1348 

1700 POETK,B:TF-TF-4BiU^TF'2B48rP0»<EW l 1 

52:PGKETF,133 

1218 IF PEEKC1F-40JO0 THEN POKEI-80,fl:G 

0T0 1340 

1220 POKETF,0;TF'TF-4B:W"Tr'2B4B:POKtW. I 

52tP0K£TF.I33 

1230 IF TF-40-1 [HEN POK£I-80,0:POK£[F-4 
B,8:GOSU8l400:GOrO142B 

1248 IF TF-40-IM0 f«EH P0KEI-8BjB(P0KEl 

F-40,0'GOSUfll4B0:GOlOI1?B 

I250 IF TF-40-I-80 THEN POKE I -80, 8 iPOKF T 
r-48,B:GOSUBI48H:GOTO1470 

1208 II PEEKOF-4BJOH THEN POKCI-BSifllQ 

0T0 1340 

127B POKETF, 0' If- IF -4fl:W = TF • 2B4B iPOKtU, I 
52;P0KETF,133 

1788 GOSUH O'jtl 



1290 GOT0132B 

;^33 :- '-t- .it •:---*. ■-:■■ •- --■-«.-. 

SIC"-FB-£" 

1318 kD=PFt2848'40:POKEhD, 168 ;PDKEPF«48, 

22 :POK£Pr-lT4B,0:POKEPFT 1-40,8 

1320 NEXT I 

1338 00^0538 

1340 IF 53248-R=TF-40 THEN GOSUB I 41 8 :R-4 

8:SC=SC*9B:G0TO1378 

1350 POKETF, B:0=TF-4B-2B49:P0KED, 168:P0(C 

ETF-43, l79;i:0Rf>-BTO3B:NEXTfl:POKETF-48,23 

9:nUSIC-R-C3-E1' :FORfl=8TO30 ^NEXlft :P0KETF 



(*!=' 



):CL 



'368 IF Uflj-B THEN G0SU3' 530:'Ji =UI»! 

S: GOTO 1 620 

1378 TF=0;SC=£Ct10:CURSOR7.0 -PRINT [7. 2)S 

C;CURSOR2?,0;PRlNT(?,2JHS;CURSOR36,8:PSi 

NTE7.2JUI :G0T01318 

1380 POKEPF-48,8 

1 338 POKEPr --48,8 -P0KEPF , 8 :F=P e *2048 :POKE 

-, :68:P0K£PF, 173:rDRP=BT038:N£XTfl;P0K£PF 

,239;^USIC■•R''C3■-£IR•Ce^GB|4D«l^nGAG■ , :FOSA^ 

8TO1500:NEXT.«;POKEPf ,8:Ol=UI-l :CURS0R36, 

0;PRINTC7,2JUI ;PF = 54 188 ;DI =8 RETURN 

1408 POKETF,B:POKEI,B:POK£I'80,8:F=TF'2B 

48 :P0KEF , 1 68 :PD*£TF , 233 :FORfl=0TO3B :N£XTfi 

:POKETF,0;»£1URn 

1418 POKETF, B:D=TF-4B*2048:POKED, 168:P0K 

ETF-40,239:nUSIC"R.-C3-El-:FORA=8TO9B:NEX 

Tft:POK£TF-4B,B:RETURN 

1428 TF=8: CURSOR?, B;FR INT 1 7, 2jSC:CURS0R2 

7,0:PRINT[7,2]HS;CURSOR36,0:PRINT[7,2]UI 

:GOT0 538 

1438 REP 

1440 REH -- EXPLOSION UP.1SSEW flrllftfL— 

T45B REF1 

1468 PO«E53248»II"18B,0 

147B FORF=20TO23.-FORE'ITOS:CURSORie»E,F: 

PRINT" , ';NEXTE,F:POKEPF'-4B 1 

1488 P0KE53248r2l48-'II, I 66 ;P0KE53348' J I , 

l79:F0RA=8TOI88:NEXTfl 

1490 P0KE53248'-2I48.II, I 68 :P0KE53348'II , 

i 79 ;P0KE53248t21 88* II , I 66 :POKE53388* 11,2 

39 :P0KES3248-2 ! 08r II , I 68 :POKE53308'1 1 , 73 

9 

1 50B P0KES3246t2BB8- 1 1 * 1 33, l 6B :POK£532BB 

*Iit139,238:POKE532O8r204BtII»l41 , 168 :P0 

<E53283-M!->I41 ,238 

1518 nuSIC ,, R-C3-f£lR'C8»CBP.0r'0nGflG" :FORA = 

BTO108 :NEXTfl:F0RF = 28T023 :F0RE= I TOS :CURSO 

Ria'E.F'PRlNT- " ;n£XTE,F JRETURN 

l 528 'E0EBE0EBE0EBE0E8EBEBE8EBEBE0E8EaE8 

F8E8EBE0£0E8E0EBE8EaEBE8£0E0E0E8E0 

1538 IF tSC>0j*[SC<l8BBj THEN a*="D;tni" 

:CURS0R18, 15:PRINT0*-80=I 

T548 IF CSC>=lB0Bj*CSC<38B0j THEN Q»="lr 

cs oien^■■ :CURS0R16, I 5 :PRINTQ* ;B0=2 

1558 IF r.SO=300BjiCSC<5B0BJ THEN 0»^"r>e 

rvti I leuj-S ":CURS0R15, I 5 =PRINTO« =B0-3 

1568 IF 50=5888 THEN Q*- = 'svp*rb* I" :CURS 

0R17, I5:PRINTQ*;B0=4 

1578 FORi4^0T0388B-NEXTfl;RETURN 

1560 -EeEaE8EaE0E0EBE0E0E0E0E0EBE8E0E0E8 

E0E8E8E0E0E0E0E0E0E0E0EBEBE0E0E0E0 

1538 REH 

ieeB Ren htp£«-espwce 

1618 REn 

1628 TI* = ' , 08008B' , -CLS;rll>88:n2=40:n3=14S 

.TI4- 1 80 :HS=44 :n6- 172 

1630 GOSUB S10 

1640 F0RUE=|i6B TO 23t4B 

1650 IF Tli^eBeBSB" THEN 2150 

1668 CURS0R?,B;PRINTt7,2ISCiCURS0R27,e:P 

RINTC?,2IIIS:CURS0R36,B:PR1NT[7,21UI 

167& POKES324B*ni,B:ni^nitUE-40 

1688 IF 53248-TU =TF-40 THEN 2848 

1690 P0K£S3748'r!2,B:n2=n7.UE 

1788 IF 5324BT12-TF-4B THEN 2SSB 

1710 POKE53248in3,0in3-n3»C4B*2J-5 

1728 IF S3248*ri3=TF-4B THEN 2960 

1730 POKE53748fn4,B:n4=n4»40 

1740 IF S3248-rn4»tF-40 THEN 2870 

1758 POK£S3248rnS,0:n5-n5+40 

1760 IF S3248tn5-IF-4B THEN 2888 

1778 POKES3248Tn6,0:n6=n6.4B'V£ 

1780 IF 53248-n6=IF-40 THEN 2890 

1790 IF T11>339 THEN HI =5S- INI CRNOt40)«50 

1 

1680 IF T12 >393 THEN H2-67* INT lRNDt4Bj«5 

Bj 

1818 IF T13 >393 THEN n3'68t INKR.NOC40 J*5 

0) 

1B20 IF f14 >999 THEN n->=40« INT(,RN0t48)»5 
0) 

1630 IF H5 >393 THEN H5M4' INT CRN0(48 )«5 
8) 

1B4B IF F16 >993 THEN n6-4B> INT [RNO(40 )*5 
0] 

1850 P0KES3Z48-2B48.ni , I 57 :P0KE5324B*tll . 
62 

I860 POKE53248'2048trlZ, I 52 :P0KES3248< H?. 
62 

1970 P0KE53248i2B48'P3, I 52 :POKES321B.rt3, 
62 

I888 PDK£53248«2048rn4, I 52 iP0K£5374B<m , 

62 

I890 POKE53249'2048*n5, I 52 •POKE53248tn5, 

62 

1300 POKE5324B'7B48'n6, I 52 :PDKES3248>nO, 

02 

19I0 GOSUB690 

1920 HO^PF»2040-4B:POKEHO,168iPOKEPF*4B, 

77:POKEPF-1-4B,B;POKEPF'I-40,B 

193a Gosuaeafl.-GosuBoaB 

1348 GOSU8698--GOSUB630 

1950 IF TF (53369 THEN POKETF , 8 ■ TF*8 

I960 IF TF-8 THEN 70'3B 

1970 IF P££K(IF-4B)<)8 THEN GOTO 2BBO ' 

1980 POKETF, BiTF«TF-4BiU"Tf > «2B4B«roKEMi I 
0B:POKEIF,133 

i-i'M n run n >4«}OI ii'i " MTO 7890 

»Bfl POKI (F.n:n 1' M"U»TT raMBiPOKEUil 

B8 i | i rr,m 

201 B il pllki ir-iinoii r«M QOTO MBB 

2H7i' POKETF, MTF-TF -10 U-IF .7B48'(i Kl U, ' 

OBiPOKLTF.133 

7BM IF Ulcn 1MEN H0SUO3SB 

;04B NCXIUE 

?VW IF Int-" -)*CtP"03 THin TF-rr-BB^U 

5IC*-r«-£' 



2860 HD'Pf-2B4BT4B;POK£HO, 16fl;P0«iF>f .40, 

22:POKEPF-l-a0,8.POKEPF*1-4B,B 

29?Z SOTO 16*8 

2083 IF S3248--1I-TF-4B TM£n GOSlti'.4l8:G0 

TO 2B40 

70^0 1- 5324fl i-!2- IF -4B THEN GOSUBI410:GO 

TO 2958 

2108 IF 5324B'n3»lF-4B THEN GOStd L 4 1 -■ GO 

SLlB2l4B:G0TO2B6B 

2118 IF 53248*P4-TF-4B ThEN G0SU9t4lB:G0 

SU82148.-G0TO 2878 

2170 IF 5374B»n5»if-*B THEN GOSU814lB:G0 

S'je2l48:G010 2888 

2I3B IF S32l8*ri6=TF-4B TmEN GOSU914lB;G0 

SUB2l48:G0T0 2B30 

2140 TF=0:SC-SC'2BB:CL«SOR?,a:PRlNTC7.2) 

SC:CURS0R27, B :PRlNT[7, 2)HS :CURS0R38, 8 :PR 

1NTL7.23UI --RETURN 

2I5B GOSU8 I530:U1-U1'9O 

2168 CLS:GQSU3 510 

2178 REH 

2168 REH --- RET0UR UfllSSEflU ftnlRM. 

2198 REn -, 

2288 0I=8:PF=S3316 

221B FOR L=4B TO 33S SIEP 48 

2728 IF UK--B THEN G0SUB36B 

2230 II-2B14B-1 

224B GOSUB 2298^60102338 

2750 REH — 

2268 REH --- TRACE UfllSSEftU flrURflL ~ 

2270 RET1 

2260 P0KES32BB* I I'6B, B :POKE53248' 1 J '68.2 

848, 152:P0KES324B-II*6Bi2B48> 157:P0KE532 

4B'60-II,8I 

2290 POKE53248-I I' 108.2818, 1 52 :P0K£S324B 

•11*100,62 

2300 P0KE53248. 1 1 . I 33.2848, 1 52 :POK£5324B 

• 11*139,1 65 :P0KES3248»H.S4fl.284B, 1S2:P0 

KE5324BtII'140,62:POk£S3248.II*141 -2846, 

I52:P0KE5324B'II.|4| . id 

231B POKES3248.1I-I8B.2040, 152 :P0KE53?49 

•11*188,68 

2328 RETURN 

2338 IF (PF"541653*(PF*51IB3J THEN 2638 

2348 IF PF'54145 THEN POKEPF'48,0 =PF=54 I 

85=G0TO263B 

2358 IF PF=54I43 THEN P0XEPF.48,8:PF-541 

89= GOT 026 38 

2360 IF Pf>5«216 'HEN P0K£PF*4B,0:Ul=Ul- 

WGOT02GIB 

2378 G0SU87J8B:GOI0254B 

7380 GETfli:P0K£S4eBB,B:P0KES4l78,B:P0K£S 

4l27,8:P0K£S4l6?,B 

2398 P0KEPF*4B,B 

2400 IF CPF=54B67)*tPF'54l87) THEN GOSUB 

146B:GOTO26I0 

24I8 IF tPF'54117l*lPF*S1l87) THEN GOSUB 

1468:&0T026I8 

2428 IF (PF>54l86J*CPF*54l88) IHEN GOSUB 

l460:GOTO26ia 

2430 IF fl«=-B" THEN DI»-1 

2448 IF fll="B" 'HEN DI-I 

2458 IF fli'-B' 1 THEN DI-B 

24G0 IF PFJ54I6& THEN PF-PF-40:POKePF*40 

.0 

2478 If (Pf=-54IB5)itPr*S11B9j *HE' 

2488 PCl"EPr,B:PCKEPF'4B,B:PF»l ■-•- hi 

Pf*2B48 :P0K£rlC, VBB :PanL"l" . &3 :HD ■>'< ■ ?849« 

40.-POKEHO, 160:POKEPF'4B,72:POKt." I 

OKEPF-33,8 

249B IF CPF-54B67)'(PF»54I07) TNEM 

I4SB>G0T02SIB 

2500 If IPf =54147)- <hT^54IB?) 1'"' 

t46Q:GOT026lB 

' : iPF*54l86).tPF'5ilB8) THEM I 

!4G0:GOTO2Oia 

252B IF (PF-54IB5)*IPF-54I89) IMEN 2638 

2530 RETURN 

2540 HQ--PF.2B4fl.4B:P0KEH0,l6B:fM- 

72:P0KEPF-l .48, :PDK£PF* I *40,B 

2550 G0SUB23BB:GOSIlB?3e8 

25Q0 IF PF-54145 THEN POKEPf *4Bi B "PI 541 

as 

2570 II Pf = 54113 ThEN POKEPF '1B.0 ;»'!■■ :.l i 

89 

2580 If tPF-S4l85)*(PF-54IB9) THEM 2838 

2590 GOSUB 2280 

7C00 CURS0R7,B.PRlNH7,7)SC:CURSOR27,fliP 

RINU?,2]HS:CURS0R35.B-PR]N T £?.7]U; (NEXT 

L 

2618 Nfl»lNTCI?*lRNO(l)>"l 

2020 PF=S3303-Nfl^Ol*0-GOTO22l0 

2638 GOSUB l53B'F0Rfl*8I0l 10B :NEX1n :F0RE- 

1 T01 4 =CURSORE* 11 , l 5 :PRINT " * ^NEXTE :SC-SC 

+ 500 

264B CONSOLEl , 71 , B,33 :P0KEPF *1B,B iFORE-B 

T024:PRINT ;NEXT£ ■FORn-BI05OB JNEXTfl :CONSO 

LE0,25,0,40;GOTO 4IB 

2650 ' EBEBEeEBE8EBE8£eEeEBEBE0EB£0E0E0E 

8E0EaE8E0E0E0t0E0EO("0i:aEBEBE8 

2668 Rtn UI NOnBRE DE UIES RESIrtNTtS 

2G7B R£n BO BONUS 

2088 Ren SC SCORE 

2090 REM hs neiLieuR SCORE 

2700 REn ftp run RRISSflOl I U» ' 

27I8 REn us SENS iif.Mir.li ENNEni 

2770 REH Pf POSH ION [USEE 

2?3e Rirn ir Tie I US) I 

2740 Rtn UE UfllSSEnU inniCI PTTMUflHl 

275B REO Urtl UfllSSErtlJ ENNEni RCSTnWt 

2760 REn no NOHHRL Ai CrtTOIRC 

7??B Rr_n m neiEOR n' i 

27M Rtn ria n 'for n-2 

^7^b ern m nniioR h" ) 

7800 REN n4 ntlEUR H*4 
}81« REH US HI Tl OR N'5 

282a Rtn no ntitOR wo 

2830 Rtn rflCWBEBr.BEBCaCliEBFBCBCHi-i'lH' ■ 

l,| W B) .'I in mi ;■: i' .'i in i" l'i i" i'i i" '' 

2840 P0KC5M4B*ni.B»ni-SSiIHT{BJOC4»)«i 

ii'i'tn 

7830 POKEM748'H2,B^n7*0-''INII'-'Nlli1l'n IB 

M00T0171B 

..,„,!■ ,',:.: ■, i ;1l l.|ll,U I.I P,l..|r.m--IIM 40)1 I" 
| ::. I ■■ :■■ 

20iB P0Kr-i37iB.H4.ti rti-10. |MTtW«*4B)»3B 

I Illl,* 

7080 POKI i '.'i. "('■■. li .i ii- IHtCRHOtHBJlH 

i I00T0177B 

18IB POKI ISMBrltt.a "'■ "'■ 1nT{RnD£ 4«;m4 

I (.mm, ■ 



LE LOGICIEL 
DE LA SEMAINE 



Driving Demons 

...sur Ti994/A 




DRIVING DEMONS (maniaque de 
la route) surTI99 
Pas <3e radars sur la route que 
vous allez parcourir grace a ce 
logiciel propose par FUNWARE. 
Vous voici aux commandes, pour 
une fois tres completes, d'un boli- 
de avec lequel vous devez par- 
courir la plus grande distance 
possible. 

Plusieurs parametres sont essen- 
tiels a la bonne conduite de votre 
voiture. 

L'ecran se decompose en sept 
parties. Sur la gauche, la route 
se deroule au fur et a mesure de 
votre deplacement ; a la droitede 
celle-ci, un radar longue portee, 
vous indique le nombre et la posi- 
tion des voitures vous precedant. 
Entin, sur la droite de l'ecran, vous 
pouvez voir : compteur, compte- 
tours, vitesse engagee, nombre 
de voitures en reserve, score. 
Alors rien de plus facile que de 
realiser un score mirobolant ? 
Mais non ! 



Plusieurs dangers vous guettent 
surcette route. 

Tout d'abord. il vous taut conduire 
correctement :nesortezpasdela 
route, ne derapez pas sur une ta- 
che d'huile, ne rentrez pas dans 
une voiture, ne provoquez pas 
I'explosion de voire moteur 
(compte-toursdans la zone rouge 
pendant trop de temps). 
Vous disposez, au depart de cent 
secondes. Chaque fois que vous 
depassez une voiture. vous obte- 
nez trois secondes de bonus. 
Lorsque vous accelerez, surveil- 
ler le compte-tours et changez de 
vitesse a temps ! 
Le signal d'alarme vous previent 
des nappes de petrole qui vous 
attendent sur la route. 
Bien sur, vous pouvez aussi retro- 
grader si besoin s'en fait sentir. 
Alors bonne route, et n'ayez pas 
peur des exces de vitesse, mais 
prenez garde aux chauffards ! 

Michael THEVENET 



PETITES ANNONCES 
GRATUITES 




VENDS ORIC 1 complet + alimen- 
tation -t- livre + 7 programmes 
jeux sur K7 : 2.000 F. Monsieur 
LASRY Tel. 621.03.65 (le soir) ou 
608.19.12 (heures bureau). 
VENDS HP 41C (10/83) : 1.950 F -f 
imprimante 82162A (9/83) : 
3.150F+lecteurenregist. casset- 
tes 821 61 (9/82) :3.800F + modu- 
le HPIL (9/82) : 900 F + module 
Stat, et Finance : 200 F -f nom- 
breux manuels. Le tout 9.000 F 
Monsieur CHARPENTIER, 2 rue H. 
Berlioz 69009 LYON. 
CHERCHE pourTl 99/4A module 
Basic Etendu + manuel d'utilisa- 
tion. Faire offre au (7) 836.89.79 a 
LYON. 

VENDS ORIC + alim. + livres + 
Donkey Kong + Docteurgenius+ 
cordon magneto : 2.200 F Philip- 
pe GARRABOS cite Maurice Tho- 
rez. appt 406 33130 BEGLES. Tel. 
(56) 85.26.37. 

VENDS ORIC148K+40 program- 
mes de jeux + livres VISA POUR 
ORIC + livre FORTH K7 + 
MICR'ORIC n° 3. Le tout avec ali- 
mentation et manuel d'utilisation 
pour 2.100 R Tel. (6) 940.78.91. 
URGENT : VENDS ORIC1 16Ko (7/ 
83) + cordon PERITEL + alimen- 
tation + 20 programmes environ : 
1.700 F Claude PEREZ Chemin de 
la Chapelle Saint Roch 84490 
SAINTSATURNON D'ART Tel. (90) 
75.48.27 (entre 19 h et 21 h). 



VENDS SHARPPC1500:!. 200F + 
CE150(imprimante):1.200F + CE 
159 (8 Ko RAM protegee) : 700 F+ 
CE 153 (tablette graphique) : 
900 F+ papier+ stylo+ 4 livres + 
malette. LE TOUT : 4.600 F. 
VENDS reference manuel APPLE 
HE (US) : 150 F. CHERCHE contact 
APPLE II region Val d'Oise. Joel 
LEMOINE. 2 rue A. Leyge bat. 28. 
esc. 02. 95340 PERSAN. 
VENDS ZX 81 + 16K + clavierme- 
canique Memotech + interface 
sonore 4- 10 K7 + 3 manuels pour 
1.400 F (moniteur TV PAL neces- 
saire). VENDS SHARP PC 1211 + 
imprimante + nombreux ma- 
nuels : 900 R Riccardo BELLATl. 
Tel. 962.43.87 (le soir). 
VENDS TRS 80 MC 10 (12/83) + 
memoire 16 Ko 4- cordon magne- 
to + PERITEL + alimentation + 
programmes. Prix : 1.500 R Mon- 
sieur SADOUN. Tel. 430.70.68. 
ACHETE pour ZX 81 extension 
16 K. Francois LECA, 36 rue de 
Buzenva! 60000 BEAUVAIS. Tel. 
(4) 448.48.94 poste 2901 (apres 
17h15). 

VENDS PC 1500 (5/83) + impri- 
mante/lnter. Cassette + 8 Ko -f- 
accessoires + 2 livres + 2 casset- 
tes dejeulogi'stick+ PC WORD + 
PC MACRO. Le tout en bon etat 
pour 3.200 F. Olivier CHAPUIS. 47 
avenue du Marechal Lyautey 
75016 PARIS. Tel. 651.35.68. 



VENDS FX 702 P neuf avec livres : 
950F PB100+extensionmemoi- 
re + livres : 600 F. le tout sous 
garantie. 

Ecrire a Gilles COCHIN Gendar- 
merie, 59600 MAUBEUGE 
ACHETE POURTI 99 cartecontrd- 
leur de disquette, carte interlace 
RS 232. terminal EMULATOR II. 
Jean Francois DIBA. 18 rue de 
Missembce'uf 02440 MONTES- 
COURT Tel. (23)63.21.34. 
VENDS Tl 99/4A (11/83) 4- modu- 
lateur SECAM + cordon magneto 
+ manettedejeu + 4 modules de 
jeux : OTHELLO. CAR WARS... + 
tome 1 "JEUX ET PROGRAM- 
MES" : le tout 2.000 F Gilles 
AILLOUD-PERRAUD. 2 rue de la 
Levee, Pare des 4 soleiis 05200 
EMBRUN. Tel. (92) 43.21.86. 
VENDS APPLE II + 48 K. 2 Drive + 
controleur + moniteur vert + im- 
primante GP 100+ interface pa- 
ralleled- SOdisquettesavecnom- 
breux programmes profession- 
nels et jeux divers + toutes noti- 
ces en francais 4- documentation 
importante : 15.000ES'adressera 
Monsieur GENNEQUIN. Tel. (20) 
72.11.74 (LILLE). 

VENDS HP 41C (5/08/81) + MOD. 
4 X RAM (2/03/82) + MOD. TIME 
(5/1/84) + MOD. XFONCTIONS 
(4/1/84) + MOD. MATH (9/6/82) + 
MOD. GAMES (21/5/82) + Docs 
d'origine+ USERS' PROGRAM LI- 
BRARY EUROPE. Le tout en tres 
bon etat. cede pour 2.200 F (si 
achat de I'ensemble. offre gratui- 
tement echiquier electronique 
CHESS CHALENGER) avec factu- 
res d'origine. Contacter Jean 
MENOES, 72 quai Louis Bleriot 
75016 PARIS. Tel. 224.61.91 (entre 
20h30et22h30). 
VENDS VCS ATARI + 6 K7. Vendu 
1.800 F VENDS ORIC 1 Neuf + K7. 
Prix 2.400R Jean LouisSAINSON, 
22 rue Marcel Doret 91170 VIRY 
CHATILLON. Tel. (6) 996.88.32. 
ACHETE pour Tl 99/4A modules 
Basic Etendu. Xavier GRESSET 
46 rue Louis Jacolliot 77400 
LAGNYS/MARNE Tel. 402.12.86. 

VENDS ou ECHANGE ZX 81. 
VENDS 4 livres micro-informati- 
que a bas prix. Ecrire a Fabrice 
BAURE. 38 rue des Graviers 
08700 NOUZONVILLE. 
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CONFIGURATION N° 4 

PROGRAMMATION 

AVANCEE : 



(PHP I20OJ 
.__ |PHPI260) 

- CARTE COrVTIfOLEUH DE DliQUETIE fPHP 1740] 

- LECIEUR DE DtSQUE |PHP T230) 

1 CARTE P CODE 

1 UCSD PASCAL COMPtLEUR 

1 UCSD PASCAL LINKER 

1 UCSD PASCAL EDfTOR 

1 EDfTOR ASSEMBLEUR 

G L'ensemble : 
3500,00 FTTC 



POURTI 99 


4/A 




LOGICIELS DISPONIBLES SUR STOCK 


EDUCATION A PARTIR DE 5 ANS 








■rlxTTC 


Addition- Substruction 1 




I47F 1 


Addltion-Substraaion II 










147 F f 


Dl ulslon -demolition 




147 F f 


Division I 




147 F r 


Early reading 

Met For multiplication 




147 F C 






Minion moins 




147 F r_ 


MuJlipllc.il Jon 1 




147 F r 






I25F I 


Cjirnue mallr.Jciiie 




175 F I 


Moil iial'Jn vol. I 






Mobo«UivaL2 




195 F C 


EDUCATION A PARTJR DE 10 ANS 


Basle par sol- mem e 




75 F II 
206 F 1 






875 F 


l.i ponilu.Tlrjn r-n rr.irit.ih 




99 f I 


DMseurj l-CCD I'PCM 




99 F 1 


LOISIRS 







-"^j^ Texas Instruments 



^^ 




CONFIGURATION N° I 
POURDEMARRER: 

1 Tl 99/4 TEXAS 16 K 

1 Magnetocassemes TEXAS avec compteur 

t Paire manenesjeux 

t Cassette "le basic par sol-meme" 

1 Les techniques Programmation dejeux n° 1 e 

1 1ntrodualon au TI 99/4 n° t et n" 2 

1 Module Jeux Munch man 

1 Module Jeux Parsec 

1 Module Hopper 

D L'ensemble: 
2.850,00 FTTC 



CONFIGURATION N° 2 
ORGANISATION: 

1 Tl 99/4 TEXAS 

1 Magnetocassettes TEXAS avec compteur 

1 Module gestlon de fichler 

1 Module gestlon de rapports 

1 Module statistiques 

1 Module Tl calc 

1 Gestlon prlvee 

? Consell Financier 

D L'ensemble : 
2.600,00 FTTC 



CONFIGURATION N° 3 
JEUX: 

t Palrerxwinettesjeux 

t Basic par sol-meme 

I Module Adventure avec la cassette Pirate 

5 Cassettes assortfes pour jouer avec le module 

1 Module jeu Munchman 

1 Module Dragon attak 

1 Module Mash 

1 Module Star Trek 

G L'ensemble: 

1.690,00 FTTC 



Otnello 

The attack 
Tl-!n vzden 



LOGIOELS TEXAS 

Ret our du pirate 

(j:-;ni'.n attack 
Mash 

riop^r"'"' 
SUrtrrck 
Jo bfeaMet 
Treasure Island 

ORGANISATION 

Fictile r (Tadreiict 



206 F 
252 F 
147 F 
206 F 
147 F 
206 F 
147F 



252 F 
252 F 
252 F 
252 F 
252 F 
252 F 
252 F 
252 F 



] Gestlon de rapport 

I Consell flnander 

' Statistics 

3 Tl-Cale 

i ORGANISATIOM 

Gestlon prtvee |l'EipansIon) 

lntrod.aun99/4|l| 

Introd. au Tl 99/4 |2J 
1 1 Les techniques des programmes do Jeux |I| 
n Les tedmkjues des programmes de Jet " '"" 

i PROGRAMMATION 



UCSD ftisc.il Compllci 
UCSD ftiscil Unker 
UCSD fatal FdHor 



MODULES ROMOX 



BONS DE COMMANDE 



fyom Prcnom 



Code postal Vlllc. . 



I Produits disponililes dans la llmlte de nos slocks en magasln. P.irticlpation 
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